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はじめに 


抑 Hi 、 シャープパーソナルワークステーション 「 X 68030 シリーズ j 上で勒作する 「 X - BASIC 」 
の说明齊です。 X - BASIC の機能、およびその使い方が詳細に解説されています。 

なお、本機の取扱いなどについては、別册の「取扱説や 「 SX - WINDOW ユーザーズマニュ 
アル」にわかリやすく说叫されています。初めて本機をお使いになる方は、必ず K 扱说明：丹」を先 
にご紫ください。 

下図は本機に同梱の6册のマニュアルの互し、の関係を示しています。 


SX - WINDOW ユーザーズマニユアル 


取扱説明書 


本ル 


• ファイル 操作やディスク操作を视覚的に行う 
• 搽々な®堍汶定を行う 

日本 居 マルチフォントエディタユ-ザ-ズマニュアル 

• W 稿や*類などの文？?を作成する 
• テキスト ファ イ ルを 作成する 


X-BASIC ユーザーズ リファレンス 

• X - BASIC でプログラムを作る 

• X - BASIC で作ったプログラムを使 

Human 68 k ユーザーズマニュアル| 


• ファイル枨作やディスク枨作を行う 
• 俅々な®堍没定を行う 

• 付祕のスクリーンエディタでテキストファイルを作る 






マニュアルの使い方 

.''こべ 4二.:.二しば::'::^ - . V - 

この マニュアルは、 本機で使⑴できる ブログラミング誇語、 X - BAS 1 C の説明? F で、その槪念や W . 
J <' 文法の解说、各 コマンド や関数の リファレンス、 及び谢偏から檐成されています。待に基本的 
な文法や、 X-BASIC に特有の機能などについては第 1 章から第 3 章をご背ください。第 4 章は、実 
際の ブログラミン 乃ネに参照する 辞#と してご 利⑴ いただけるよう、 X-BASIC のすベてのキーワー 
ドについてアルフ ァベッ ト順に说 叫して あリます。また、どのような コマンド や関数があるかを調べ 
る叫•介のために、機能別索リ I も⑴总されています。 
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章基礎編 


• X - BASIC の特長 

X - BASIC は、 Human 68 k 上で遂るインタプリタ BASIC です 0 func 〜 endfunc 、 switch 文、ブ 
ロック if 文などを川いて 、 C H 語のような構造化プログラミングスタイルを次:祝することができま 
す。また、インタプリタ BASIC の技所である修正（デバッグ）作菜のしやすさと、スクリーンェデ 
ィタによるプログラム編 It •のしやすさも兼ね備えています。 

特に、本機の行技であるグラフィック、スブライト、サウンド等のハードウェア機能は、すべて外 
部関数としてサボートされており、 X - BASIC の本冰（核）とは独、7：した W 造をとっています。この 
ため別ヮ•どの 「C CompilerPR ()-68 Kj を利川することで、独 fl の外部関数を作成したリ、 X-BASIC 

のソースプログラムを（：3以めソースプログラムにコンバートすることができます。 

Hf +約には次のような特技を備えています。 

♦プロ グラム内で神々の閲数： di 義ができ、 ローカル 変数の使 HI により仲•び出しが < 能 
•ファイル mm は Human 68 k と Ml —で、 C 言席のようなファイル处押•が"]■能 
♦データ切として int (4 八イト辂数)、 char ( 1 バイト辂数)、 float (8 ハ•イ ト， 发数)、 str （文字〉 
の4つをサボート 

• Human 68 k 上の日本語 FP (フロントプロセッサ)を利用して、日本語处理 （ JIS 第1、第2柳 
澳字) が可能( II 本辦入力の力•法については「 II 本措入力•辞:; 1 f ユーティリティューザーズマニュ 
アル j を参照してください） 

籲フリーェリアおよび使) H する外部 IW 数の衍定などが" f 能 

• FM ? 亂 MIDI 、 ADPGM の同時コントロールが可能 

• 起動する前に 

X - BASIC を起勒する前に、必ずシステムディスクと辞丼ディスクのバックアップコピーを作成し 
てください 0 作成ガ法については、 「 SX - WINDOW ユーザーズ マニュアル j または 「 lhinian 68 k ユー 
ザーズ マニュアル J を参照してください0 

今後のでは、このバックアップされたシステムディスクや辞并ディスクを使い、マスターディ 
スク（本機にの®本）は、大切に保•しておいてください。 
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1.1 X - BASIC へようこそ 

ここでは、 X - BASIC の起動と終了の方^を说明します。 

1.1.1 デスクトップ画面からの起動 

X - BASIC の起#力力•法には、人•きく分けて次の2つがあります。 

•デスクトップ_面からの起|方 

• Human68k のコマンドモードからの紐力（本次のコラム 「 X - BASIC のいろいろな起動 j を 
参照してください） 


ここでは、デスクトップ_面から X - BASIC を起勒する手順を説明します。 

まず、デスクトップ I 由 Tifti を 起勤し ます。 （「 SX-WINDOW ユーザーズ マニュアル j を参照してくだ 
さいし次に、 「 BASIC 2」 のディレクトリアイコンをマウスでポイントして、左ボタンでダブルクリッ 
クします。 

ディレクトリのウィンドウがいたら、 「 BASIC . X 」 のアイコンをマウスでポイントして、左ボタン 
でダブルクリックします。 （「 BASIC 2」 は Human68k ver .3.0 システムディスクに入っています） 
しばらくすると X ■ BASIC が起動して、次の_面が衣^されます。 



_面には点滅するカーソルがあります。この状態を、入力侍ち状態といい、キーボードから X - 
BASIC の命令やブログラムを入力することができます。人力した文字はカーソルの位策に表示され 
ます。 


1.1.2 終了 

XBASIC を終了するには、入力侍ち状態のときに、次のように入力します。 

system ( p | はリターンキーを押すこと） 

I 由'1向にメツセージが表示されますので、 H かキーを押すか、マウスのボタンをクリックしてください。 
デスクトップ_而に戻リます。 

また、ファンクシヨンキーの 「 F 10 ! キーを押しても 「 system 」 と表示されますので、表示された 
ら、リターンキーを押してください。問じようにして、デスクトップ_面に戻ります。 


1 . 2 プログラムなんて恐くない 


X - BASIC か起動したら、次のようにキーボードから入力してください。 


1.2 ブログラムなんて恐くない 


print 12-7 

カーソルは「7 j の後ろで点滅しています。では、リターンキーを押してください。画面は次のよ 
うになったはずです。 

print 12-7 

5 

Ok 

いま入力した命令は、「12 — 7を計算して、その結果を P 画に表示しなさい j という想味です。この 
ように、商接 X - BASIC に命令を4えてすぐに結果を出させることを、ダイレクトモードで実行す 
る、といいます。また、いま入力した 「 print 12— 7 j 全体を、命令文といいます。 

ダイレクトモードで入力、実行した命令は、コンピュータのメモリに記情されません0「使い捨て」 
の命令は、ダイレクトモードで実行します（ただし再用することもできます。これについては後ほ 
ど说明します〉。 

では、次のように入力してみましょう。 

10 print 12-7 

人力したらリターンキーを押してください0 

10 print 12-7 

今度は計寶•結果がに表示されませんでした。なぜでしょう。この「谜 j の答えは、行の先頭の 
r 10j にあリます。 

X - BASIC では、行の先頭に1から65535までの整数（「行番号 j といいます〉と1つ以1••のスペー 
スがあり、その後ろに命令文が絞いているものを、「ブログラム j と考えます。ブログラムはコンビュ 
一夕のメモリに記饱されていて、「実行しなさい」という命令を与えるまでは何もしません。 

キーボー ドから、 

run \ j \ (0 はリターンキーを押すこと〉 

と入力します。また、ファンクションキーの [ FT ] キーを押しても同じことができます。 


10 print 12-7 


Ok 

計算結果が表示されました。このように、プログラムをコンピュータのメモリに記憶させて、あと 
で結果を出させることを、ブログラムモードで実行する、といいます。 「 runj は、ブログラムを実行 
する命令です。 

カーソルを 「12— 7」 の 「lj に 移動して、 

，， X68000" g 
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と人力し、さらにカーソルを 「 run 」 の行に移$力して、いきなリリターンキーを押してみましょう。 

10 print ， ’X68000" 
run \jl\ 

X68000 

Ok 

run 命令を再度入力しなくても、プログラムは実行されました。しかも今度は、計算結果ではなく、 
「 X 68000」 という文字が衣示されています。このように、 X - BASIC では、 I 由 Itfri に表示されている文 
字を修正して（あるいはそのまま）、何度でもゼ只 ij 用できます。 

ここで注:总〇 I 由 UAi に及ポされているプログラムを修正したり、新しく彳ナ#硅をつけてブログラムを 
作成したときは、そのあとで必ずリターンキーを押します。リターンキーを押さずに 力ー ソル移觔キ 
一でカーソルを他の U へ移勋したときは、作成、修 il : •の結果はコン ピュー タのメモリにが惊されませ 
ん〇 

では次に、 「” X 68000” J を 「” Human 68 k ” j に変史してみましょう。カーソルを 「 Xj に移動して 
から [ INS 」 キーを押します。絞けて、 


Human 


と八力し（リターンキーは押しません )、 [DEL I キーを IN 押します。次にカーソルを「8」の右の 
「0 j に介わせて、 

k 


と人力してから1 DEL |キーを3 M 柙します。ここまでの変史は、まだコンピュータのメモリに•记惊さ 
れていません。 fhh げにリターンキーを押しましょう。 

10 print ” Human 68 k ” 


X68000 

Ok 

フログラムを，火:彳/•します。 「 runj の行にカーソルを移#力してリターンキーを押してください。 

10 print ” Human68k” 
run JJ\ 

Human68k 

Ok 

カーソルの位满はそのままで、 
els |J) 

と人力してください。 ㈣ 曲•動;•が消えて、左上に 「 Okj だけが表示されたはずです。このように 「 cls 」 
はテキスト I 由 lifii を消去する命令です。プログラムも消えてしまったのでしょうか。 




1.2 プログラムなんて恐くない 


では、次のように人力してください。 
list \ J \ 

I 由-副か Trt えても、メモリに記惊されているブログラムまで； W えてしまうわけではありません。 list 命 
令でいつでも表 > J •くできます0 また、ファンクションキーのキーを押しても W じことがて•きます0 
「 list 」 は、プログラムリストを衣示する命令です。 

Ok 

list 

10 print " Human68k ” 

Ok 

行}^•のん:にスペースが 3 文，？: 分入っていますが、划 i •には H の S 僧もあリません。 list 命令の衣示 
形式が、いつも行?^.5份分をとるようになっているだけのことです。ただし、 i 】 •沿り•の心•には、必 
ず1つ以 I •.のスペースをあけなければなりません。 

「 10 」 の 「 1 」 に カーソルを 移 ! t 力して、 

2 [J 

と入力してください。 操 1 ) 返し同じ位菜にカーソルを 移 I 力して、 「2 j を 「3」 に、 「3」 を 「4」 に部 
き換えて、そのたびにリターンキーを押します。次に、々ーソルを 「 Okj のドの乍いているところに 

移! S 力してから、 

run \ J \ (または [ yri キーを押します) 

と人力します。そうすると…… 

Ok 

list 

40 print ” Human68k ” 

Ok 

run 

Human68k 

Human68k 

Human68k 

Human68k 

Ok 

プログラムを兄てみましょう。 list 命令を使います。その場で 「 listj と入力してリターンキーを押す 
か、 [ fT ] キーを押すかまたは 「 listj と表 Tii されている U に力ーソルを移勋してリターンキーを押し 


ます0 
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Ok 

list 

10 print ”Human68k” 

20 print ”Human68k" 

30 print "Human68k” 

40 print " Human 68 k " 

Ok 

何の役にもたたないブログラムですが、誤勤(ヤするわけではありません。それなりに「完成した」 
フ° ログラムです。 

いままでの操作で、ブログラムは簡単に作成できるんだ、という苏闻気はわかっていただけたでし 
i 1 〇 

では、次にもう少しプログラムらしい例を示しましょう。 

キーボー ドから、 

new J) 
auto Jl 

と入力してください。「10」という数字が衣示されて、その右側でカーソルが点滅しているはずです。 
「 new 」 は iJW : •メモリ上にある ブロ グラムを消去する命令、 「 auto 」 は行番号を自動的に発生させる命 
令です0 


new 

Ok 

auto 

Ok 


次のプログラムを入力してください。行番号は、リターンキーを押すと自動的に表示されますので、 
入力する必要はありません。また、もし前の行に入カミスがあったとしても、それはすべて入力した 
あとて1多正できます。 
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1.2 ブログラムなんて恐くない 


/拿 sample•bas 
int x,y,fg 
screen 2 ， 0 ， 1 ， 1 
vpage(1) 

window(0 f 0 f 1023,1023) 

mouse(0 ) 

mouse(4 ) 

home(0,384,384) 

f ill( 400,400 ,650,650,9) 

while fg=0 

fg = rasbtn(1,0 t 0) 
mspos(x,y) 
home(0 f x f y) 
endwhile 
wipe() 
end 


「 endj まで入力してリターンキーを押したら、絞けて 「 BREAK ] キーを押します。入カミスがある 
ようでしたら、カーソル移勧キーと 「面 一、 r^ri キーなどを使って修正してください。修正 

したら、リターンキーを押すことをお忘れなく。 

それでは灾行してみましょう。ブログラムを実行する命令は 「 run 」 でした。 

run [ j ] (または [7 T 1 キーを押します) 

と入力します。グラフィックが衣示されたら、マウスを勋かしてみましょう（ボタンは柙しません)。 
叫灼形がマウスの觔きに合わせて移觔します。左ボタンをクリックすると、ブログラムは終 r します。 

うまく其行できたでしょうか。 

せっかく入力したプログラムです。消してしまうのはもったいないので、フロッピーデ4スクに保 
存します。ドライブ B にフォーマットしたばかりのフロッピーディスクを入れて、次のように入力し 
てください。 

save H b : sample - bas " \ J \ 

プログラムの保#については、あとの節でもう少し詳しく说明します。 

次に、その他のブログラムの修正方法について説明します。 

(1 ) 行の追加 

行番号は通常、10、20、30というように10ずつ增やした整数をっけていきます。これは、あとから 
行番号を追加しやすくするためです。ブログラムを作成しているときに、行の問に命令文を追加した 

い、ということは頻繁におこります。 

たとえば、•と3011■の間に命令文を追加するときは、阐面の何も入力されていない部分にカーソ 
ルを移勅して、20と30の間の整数 （25 など）を行番号として命令文を入力します。入力したあとは、 
必ずリターンキーを押してください0 

list {j 

10 print ”これは" 

20 print "例です” 

Ok 

15 print ，，追加の " [Jl 
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list JJ 

10 print "これは” 
15 print "追加の" 
20 print ” 例です” 


(2) 行の削除 

すでにある ms •だけを人力してリクーンキーを押すと、その行は削除されます。 
list jj) 

10 print " 行を*， 

20 print "このように" 

30 print "削除します" 

Ok 

20 0 
list a 

10 print "行を” 

30 print ••削除します" 

Ok 

まとめて削除するときには、 delete 命令を使います。 
list [J! 

10 print "後数行を” 

20 print " 一度に ” 

30 print "まとめて" 

40 print "削除します" 

Ok 

delete 20-30 |J)| 
list [Jj 

10 print ”播数行を" 

40 print ’ 削除します” 

Ok 

(3) 行の置き換え 

すでにある行 S 号と同じものに絞けて、新しい命令文を入力してリターンキーを押すと、その行は 
自動的に新しいものと s き換わります。 

list [^J 

10 print "内容が” 

20 print "置き換わります" 


Ok 
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10 print " このように " J 
list |』 

10 print ”このように" 

20 print ”置き換わります" 
Ok 


(4) 行番号のつけ換え 

プロ グラムを作成している途中で、行番号の間隔が不はいになったり、行番号が連嫌して間に行を 
追加できなくなったときには、 renum 命令を使います。 

list M 

10 print "行番号を" 

12 print "つけ換えて” 

18 print ”きれいにしましよう" 

Ok 

renum [ j)j 
Ok 

list [ j \ 

10 print "行番号を" 

20 print ”つけ換えて” 

30 print "きれいにしましよう" 

Ok 

XBASIC で扱う f 約語(変数名や関数名に使川できないキーワード）は、人きく分けて次の M 別 
があります。 


コマンド 

ステートメント 
システム変敉 
関数 

コマンドは、ブログラム中に*することはできません0ダイレクトモードでのみ使川します0 
これまでに説明した命令（コマンド）の詳細は、第4疗•を参照してください0 


11 




-用語の脱明___ 

春文：文とは命令文のことで、コンピュータに対する命令を与えます。文には、第4章で説 
明する命令や、代入を行う式などがあります。 

•行： 行は、コンピュータに命令を与えるときの単位で、リターンキーを押すまでに入力し 
たものを指します。1行は255文字以内で、1行には1つ以上の文が含まれています。 
1行に複数の文を含む行を マルチ ステートメントと呼び、この場合には文と文の間を 
コロン（：）で区切ります。また X-BASIC では大カッコ { } によって dim 文中の 
データを複数行に分けて^^したり、 if 文中で実行文を複数行にわたって2己述するこ 
とも可能です。 

♦行番号：行番号は、行を後数個集めてブログラムにする場合に、行の先頭につける番号です。 

行番号は卜65535までの整数で、そのプログラムをコンピュータの メモリ に記憶する 
順序を表します。また、プログラムの灾行も行恭弓 •顺 •の小さい职）に行われま 
す。 

•データ••愈にはいろいろな 神 類の悄報のことを指しますが、 BASIC ではユーザーが指定す 
る文字や数 W (のことをいいます。たとえば、 「 a =1 j というのは、 a という変数に 1 と 
いう侦を代入するということですが、この場合の1をデータといいます。 


1.3 X - BASIC のブログラムスタイル 


/本 Tiny EDITOR ted.bas 
str fname[20) 
str buff[200] 
int fp, fc 
char CR=13 f LF=10 
/* 

titleU 
fninput () 

f p= f open ( f name，••(?••} 
edit() 

fc:fclose(fp) 
end 



func t i tle() 
str dummy 
els 

print ••これは簡易エディタで 
” メモなどを作成すると 
" なお、すでに存在する 
print ••件にそのファイルの内 
print 
print 

dummy=inkey$ 

els 

endiunc 

func fninput() 

print M Input file name > M ； 

1 input fnarne 
endfunc 
func edit() 

print M Input data( END : f )、 
while buff <> 

1 input buff 

if buff <> then { 

fwrites(buff,fp) 
fputc(CRifp) 
fputc(LF,f p) 


endwhile 
endfunc 


1.3 X - BASIC のプログラムスタイル 

次のプログラムを兄てください。 


いままで BASIC を使ったことがある人でも、ちょっと速うぞ、と感じるのではないでしょつか。 
このプログラムには、 X-BASIC を特垃づけるいくつかの要素と、ぜひ突践してほしい⑽« (ブログ 
ラミングの「作法」が含まれています。 

BASIC ではおなじみの goto 文や gosub 文がありません。 XBAS 1C でも goto 文や gosub 文を 
使ってプログラミングできますが、使わなくても不便なことはありません。むしろ、プログラムの流 
れをわかりづらくする口のある goto 文、 gosub 文は、使わないことをおすすめします。 

goto 文に代わるものとして、粂 fT 制断による分岐（ブロック if 文、 switch 文）や繰り返し （for 
〜 next 文、 while 〜 endwhile 文、 repeat 〜 until 文)を制御する構文があります。また、 gosub 文で 
呼び出すサブルーチンの代わりに、よリ独立•性の高い関数 （func 〜 endfunc) を定義することができ 

ます。 

さらに、これも BASIC では多用するマルチステートメントを使っていません。マルチステートメ 
ントについても、 goto 文などと滕に X-BASIC で使うことはできます。しかし、プログラムをより 
兒やす v 、ものにするために、1行1命令にすることをおすすめします。 


条 

無 

は： 
f • 
"とす 
•たま 
ぃしぃ 
さ定ま 
だ指し 
くをて 
い名し 
使ル K 
"おィ刖 
•に T を 
すきフ容 


、 

さ 

だ 

く 

て 

し 

を 

一 

キ 

か 

何 


n 

•1 

r 

p 


2333^1 11012013014015016017018019012102202302402502602702802901310320330340350360 33 
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char c 
int i 
float f 
s t r s 

str s_max(255] 
c = 200 
i= 647685 
f= 14487895.256 
s = #t X680O0 ft 

s_max: ABCDEFGHIJKLMNOPQRSTIVWXYZahcdefghijklmnopqrstuvwxyz 

print c,i•f,s,8 一 max 

end 


str 1_! て -33 文字以 h の文す‘列を扱うときには、 50 行の宣旨のように、文字八ッファのサイズを指定 
します。 

データ型の这言が竹略されたときには、その変数は加 ( j に int 型になリます。これは、実数値を扱 
うフログラムでは注总しなければならない点です 〇 int 堂の変数:こ実敉値を代人したときは、計算結沿 
力で正しくないものになることがあります。 

変数は、宣言と M 時に切期値を代人することができます。 

10 char c=200 

初期値を代入しないときは、数値 （ int ^ char 、 float ) 型の変数には〇が、文字 （ str > の変数に 
は null 文字（文字数0の文字列）が代入されます。 

原則として、 M じ名前の変数をメインプログラム中で诉宣言することはできません。 
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このみつに、 X - BASIC はその独自の特長により、わかりやすぐまた修正（デバッグ）作業のし 
やすし、プログラムの作成、社|堪を能にしています。 

この他にも、 X - BASIC でプログラミングするために、必ず知っておかなければならないことがあ 
ります。次節以降で詳しく説明します。 

K 4 準備作業その1 

フロ グラムで使う データを しまっておく「入れ物」を、変数といいます。また、入れ物につける名 
前を、変数名といいます。 

X - BASIC では、隻 ; 数を使⑴するときには、その変数をこれから使うぞ、ということを iii •初に茛言 
しなければなりません。これを、変数の宣言といいます。また、変数を宣3するときには、その变数 
がどんなデータの人れ物になるのか、つまり、変数のデータ切も冏時に宣 S します。 

データ5?には次のものがあります。 

格数切 （ int 切） -2, 147,483,648から2,147,483,647までの整数値を扱う 

核数切 （ char ？!） 〇から255までの焓数攸を扱う 

英数5? (float VD 絶*撤が1,1125369292536 E — 308から3.5953862697246 E +308 まて- 

の倍精度実数値を 扱う 

文卞切 （ str 切） 255文字以内の文卞列を扱う 

次のブログラムでは、10彳/■から50彳 f で、それぞれ char 型 、 int H float 型、 str 型の変数を宣言 
し、60行から lOOff て侦を代入しています。 


000000000000 

123456789012 



1.5 制御の流れ 


データ®の詳細については第3なを、また、変数の宣言ノ/法については第4¢をそれぞれ参照して 
くださぃ。 

-用語の脱明- 

♦変数：変数とは、それ fl 体が fift を衣すものではなく、必要に応じて値を代人したり、式の一 
部になったりするものです。 

•変数名：'皮数につける名前のことです。 X - BASIC では、変数名は64文字までの英数卞の組み 
合わせです。変数デ，は、 f •約語を含んでいてもかまいません （ f •約語については、資 
料編「チ約語一览 j を参照してください)。 


1.5 制御の流れ 

XBASIC には、ブログラムの流れをわかりやすいものにするために、いくつかの制造を持っ 
た梆文か ms : されています。 

1.5.1 条件による処理の分岐 

ある一定の条 fl ••によって、そのあとに次•行することを変えることができます。 X - BASIC では 、 if 
文、 switch 文を使います。 

• if 文 

「もし冷；にビールがあれば、飲む。なかったら、茶の間に戻る j 
このような、荣 fT . によってその後の行勋（作龙> を分岐させることは、ブログラム中でも頻繁に起 
こります。そのようなときには、 if 文 （ if 〜 then 〜 else ) を使います 0 上の例をプログラム的な流れで 

表すと、 

1. 台所に行く 

2. 冷藏 M (を開ける 

3. if ビールがある then 飲む(終わり） else 茶の問に炭る（終わり} 

4. 終わり 

のようになります（これはプログラムではありません)。 

X - BASIC の if 文の特技は、分岐後の操作を後数行に渡って^£できるところにあります。たとえ 
ば、「変数 a の侦が5だったら 、 x + y の侦を変数 a に代人して、 ”0 K ” と変数 a の値を衣示させ、5 
でなかったら、” N 0” と変数 a の姐を表ボする」という分岐は、 

10 int a 
20 x = 3 
30 y=10 
40 a = 0 
50 input 
60 if a= 

70 
80 

90 } els 
100 end 
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print 


print 



はじめの switch 文では、 5( Hf だけを実行しますが、次の switch 文は、 11 W 亍から130行までを実行 
してしまいます。 

1.5.2 処理の繰り返し 

ある条件が^たされるまで、一定の处理を繰リ返し実行することができます。 X - BASIC では 、 for 
文、 while 文、 repeat 文を使います。 

• for 文 

「娘が生まれてから20才になるまで、每¥1つ絵皿を作る j 
一定の间数、あることを繰り返すときには、 for 文 （ for 〜 next ) を使います 0 上の例をプログラム 
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と； k ! 述できます< 


• switch 文 

「くじを引いて：1等なら VTR 、 2等ならラジカセ、3等ならタオルセットがもらえる。それ以外 

はハズレ j 

ある条件で、複数の動作に分岐するときには、 switch 文 （ switch 〜 case 〜 default 〜 endswitch ) 
を使います。上の例をブログラム的な流れで表すと、 

くじを引く 

switch くじの中钟 

case 1等： VTR をもらう ： break (終わり） 
case 2等：ラジカセをもらう ： break (終わり） 
case 3等：タオルセットをもらう ： break (終わり） 
default :涙をのむ 
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endswitch 

終わり 


のようになります（これはブログラムではありません)。 
switch 文では、すべての条件に一致しなかったとき、 default 文があれば、それを実行します。 
break 文は、 switch 文や for 文、 while 文、 repeat 文から抜け出す働きをします。次のプログラ 
ムの、 30 fj •から 8( m •と、 90 ff から 140 ti ■では、勒作が違ってきます。 


a 


nsw 
i a 8 


012 lh 012 lh 
a u c a u c 
eeeateeeat 
has8fihs8sfi 
caaaewcaaaew 
tcccdstcccds 

d d 

e e 


d 
n w 
e 8 


000000000000000 

123456789012345 


k k k 
a a a 
e e e 
rrr 
b b b 


0 12 : 


0 12 : 







.5 制御の流れ 


的な流れで表すと、 

1. 娘が生まれる 

2. for 娘の年齢= 0 to 20 ( 1つずつ増やす. 20回で終わり） 

3. ^皿を作る 

4. next (2. に戻る） 

5. 終わり 

のようになります（これはブログラムではありません)。 

X - BASIC の for 文は、ループ N 数を決める変数を1ずつ壻やすことしかできません。 

10 int i 

20 for i=l to 10 
30 print H X68000 ; 

40 print "is THE GREAT." 

50 next 
60 end 

• while 文、 repeat 文 

「ハートのエースが出るまで、トランプを引く」 

繰り返しを終わらせる制牛はわかってぃても、何回実行するのか明確でなぃときには、 while 文 
( while 〜 endwhile )、 repeat 文 （ repeat 〜 until ) を使ぃます。上の例をブログラム的な流れで衣す 
と、 

1. トランプを引く 

2. while トランプく〉ハートのエース（ハートのエースなら終わり） 

3. トランプを引く 

4. endwhile (2. に戻る） 

5. 終わり 

または、 

1 . repeat 

2. トランプを引く 

3. until トランプ=ハートのエース （1 •に戻る.ハートのエースなら終わり） 

4. 終わり 

のようになります（これはプログラムではありません)。 

この2つの構文は、籴 f すを判断するタイミングが遠ぃます。 while 文は、处理を突行する前に籴件を 
判断するので、場合によってはループの中身を一度も実行しなぃこともあります。これに対し 、 repeat 
文は、必ず处理を実行してから条件を判断します。したがって、ループの中身を1回は実行します。 

また、条件判断の基 m も、 while 文と repeat 文ではちょっと違ぃます。 while 文は、条件が正い、 
とき （ ft •のとき、または、偽になるまで、 とぃぃ ます > 处理を繰リ返します。 repeat 文は、制すが正 
しくないとき（偽のとき、または、典になるまで、といいます）处理を繰リ返します。 
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while a = 1 /拿正し t 
input •Number = 
if i=5 then ( 
print M Numbe 
break 


print 


Number 

Reente; 


endwhi 

end 


1.5.3 流れを変える 

锐リ返しを次: u するときに、ある灸 fl •のときだけループを抜けたい、または、ループの中の地理を 
そのときだけ朽略したい、ということもあるでしょう。 goto 文を使えば簡中•ですが、それでは行 S 号 
に依む•.したフログラムになってしまいます。 goto の放び光に新しいけを id 加したときなどは、ちょ っ 
と W ったことになリそうです。 

X - BASIC では、 break 文と continue 文を使います。 

• break 文 

「1平出 I 、釣 f 戈の1闪玉を鉍 H ビンに入れる。ただし、途中でビンがいっぱいになったら中止する」 
switch 文のところでも说叫しましたが、 break 文は、 switch 文や for 文、 while 文、 repeat 文か 
ら強制的に抜け出す働きをします。 I ••の例をブログラム的な流れで表すと、 

1. H 物をして的线をもらう 

2. for H 数 =1 to 365 

3. ビンに 1 P 1 R を人れる 

4. if ビンが いっぱい then break (終わり} 

5. H 物をして I 道 S をもらう 

6. next (2. に足る） 

7. 終わリ 


10 int i 
20 i=0 

30 while i<>10 /t 「i は 10 ではな v 
40 print ,f X68000 tf 

50 i=i+l 

60 endwhi1e 
70 end 


が正 


とき tt り返す 


10 int i 
20 i=0 
30 repeat 
40 

50 i = 
60 until 
70 end 


M X68000 


MO /* 「 i は 10 である j が正 


ないとき雄り返す 


while 文や repeat 文を使って、いつまでも繰り返しを絞ける無限ループを作ることができます。無 
限ループを終わらせるには、ループの中で if 文と break 文を使います。 


000000000000 

123456789012 
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のようになリます（これ: i ブログラムではあリません>。 

1 〇 int a ， i 
20 a = 0 
30 b = 0 

40 for i=1 to 100 
50 print i ; 

60 input M Number = ; b 

70 a=a+b 

80 if a>=45 then ( 

90 print f a >= 45” 

100 break 

110 } 

120 print "a < 45" 

130 print "More" 

140 next 
!50 end 

制¢1梢造が多中: の 入れ子（ネスト）になっているときは、 break 文は、1 つ I ••のレベルの ネストへ 
I 灰け出します。 

10 int i , j ， k 

20 str S3 = t# >>>>> >>Break<<<<<< ## 

30 for i=0 to 2 
40 for j=0 to 2 

50 for k=0 to 2 

60 if k=1 then break 

70 pi ir»» 

80 next 

90 print sa 

100 print 

110 next 

120 print ;i 

130 next 
140 end 

• continue 文 

「泣破するまで、{刺 fe 「三 l » U ミ j を忒む。しかし、涧を飲んだ II は说まずに眠る j 
continue 文は、 for 文や while 文、 repeat 文のループを強制的に次のサイクルへ進めます 0 I •.の例 
をプログラ厶的な流れで表すと、 

1 • 「三 W 志 j を H ってくる 

2. 祕晚狡む 

3. while 说み終えない（泣み終えたら終わり） 

4 . if •を飲んだ then continue (3. へ/乂•る） 

5. 彳碑む 

6. endwhile ( 3. へ W る） 

7. 終ゎり 

のようにな 1 )ます（これはプログラムではありません)。 

繰リ返して数侦を人力するときのエラー処理などに利川できます。 
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10 int a，b 
20 b = 0 


30 repeat 


40 

a = 0 

50 

input 

60 

if a> 

70 


80 


90 

} 

100 

b = b+a 


"Enter(end=0) 
1000 then { 

••Error! ! 



110 until a =0 



Too large( 


120 print 11 Answer : ";b 
130 end 


1.6 準備作業その 2 

M じデータ型をもつ夜数個のデータの集まりを、配列といいます。マンションを例に配列の考え方 
を説明します。 



たとえば、 I •.のように 10 r づ•室から105号室まで5部祺があるものとします。各部屢にはぃろぃろな 
來执構成があります。 

101号……3人家族 
102号……4人来族 

拳 

# 

105号……2人家族 

このとき、 101 v 室などの部/^番号が変数、中に住んでぃる人数がデータ（その変数の値）にあたり 
ます。 

fV 部/4はひとつひとつが変数だとち•えられますが、すべて別の変数にすると、データの入力などが 
繁输:になります。 

10 int a,b,c,d,e 

20 a= 10 : b=20 : c=30 : d=40 : e=50 

これを配列として宣言すれば、データの入力や利用が申•純になります。 

10 dim int a(4)={ 10 f 20 f 30 f 40 f 50 } : int i 

20 for i=0 to 4 

30 print "a(••; i ; •• い "； a ⑴ 

40 next 

fii ! 列殳敉は、 x (0)、 x ( l > のように、殳数名の後に括弧で番号をく くった形で用ぃます。括弧内の番 
号は添字とぃぃ、 Sil 列の中の何番目の要素であるかを表します。たとえば x (2) は、 x とぃう配列変数 
の〇番 H の要索から数えて2番 H の要索 （ x (0)、 x ( l )、 x (2> と数える）という意味になります。 
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ブログラム内で配列を使うには、「変数の宣言」と同じくあらかじめ dim 命令による「配列の宣言」 
を必ず敁初に行ってください。紀列の宣言とは、 fld 列変数の名前と配列に入れるデータの型と個数を 
決めてやることで、 

dim 5?宣言変数名（添字の故大侦 J 

という许式で行います。型宣言を杏略すると intS になるのは、変数の場合と M 腺です。 dim 命令に 
ついては、第4章でも说明してありますので、そちらも参照してください。 

添字は0から始まるので、 fii! 列変数が持つ要素数は dim 命令で指定する添字+1になります。たと 
えば、 dim a ⑸と宣言すると、 a ⑼から a ⑸までの6つの配列が使えるようになります。添字はメ 
モリか不足しない IEM までとることかでき、〇から65535の値を使うことができます。 

数値 (int, char,float) 型の配列については、各要索で扱える数値の剛はデータの”に応じて決 
まりますが、文字 (str) 型は各要素で扱える文字列の長さを文字八ッファのサイズにより fit 定できま 
す。文字バッファのサイズを指定しない場介は3 2文字と見なされます。これよリ短い文字列しか代 
人されない場作は問姐ありませんが、 t っと技い文卞列が代人されることをち•えなければならない場 
合は次のようにして文字八ッファのサイズの Wr 大値 （1 〜255)を指定します。 


dim str a(l0)[200] 


これで、 fid 列の要素 a(0) から a ( 10> にはそれぞれ Ai •人 200 文字までの技さの文字列を代人して使う 
ことができるようになリます。 

次に、先ほどの マンションが 5 W4E てだとすると、 



1階に5部吊で5階で25部 M になります。 

1階101〜105号室 
2階201〜205号室 


5階501〜505号室 

つまり、 



0 12 3 4 
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のようになリます。このような形 A を、2次元 rtd 列といいます。さらに、このマンションが奥にも部 
At ? があれば、3次元配列になります。 


5 指 



奥にも部屋 


段数の添字を使った場介、配列は添卞の個数に応じた次； e になリます。 
たとえば、 


dim d(2,3) 

ヒいう•••〔パでは、以ドに小すような二次元(縦"⑹と横"⑹の二次心の fid 列がとられます。 


!■■■ — ■ ■ - 1 

d ( O . O ) 

_ ■ 1 一 — ■ 1 

f 1 ■ 

d (0.1) 

d (0.2) 

d (0.3) 

I 

ci ( l . O ) 

■ — I 

cl ( l . l ) 

d (1.2) 

― —-J 

(1(1.3) 

__ ■ - 4 

(1(2 •⑴ 

(1(2,1) 

d (2.2) 

d (2.3) 


dim y(2,3,4) 

のような三次元の配列につ V 、ては、縱方向と横方⑸に奥行きが加わった u 1 (力•体をイメージしてくださ 

い0 

このように、 fld 列の次元は、いくつ添卞を指定するかによって決まります。次元は、理論的には255 
次元までとれることになっていますが、次:こはプログラムの1行の技さで fit 定できないので、もっ 
と少なくなリます。 

以ドに、いろいろな配列変数の例をあげます。 

dim char a(12) . 桉&切 (char 切)の配列変数(要索の数 13) 

dim str b(4). 文字 5?( str 切）の配列変数(要索の数 5) 

dim str f(3,3). 二次元文字型 （ str 型）の配列変数（要索の数 4 X 4=16) 

dim n (2,5,3). 三次元整数型 (int 型)の配列変数(要素の数 3 x 6 x 4 = 72) 


9? 








1.7 汎用的な部品を作る 


1 . 7 汎用的な部品を作る 

プログラムは、人きなブログラムになればなるほビ、わかりにくく、また作成、修 ii : . (デバッグ> 

もむずかしくなります。このため、フログラムを小さな部品中位で作成すれば、だれにでもわかりや 
すく、また修 ii : . (デバッグ> も界 g なフログラミングが" r 能ヒなります。このことをモジュール化と 
いいます。 

XBASIC では、この部ん 1 •中位のフログラム作成を func - endfunc を使って阳玖として定衣でき 
るようになっています。 

func 〜 endfunc を使った XBASIC のプログラムは次のようになります。 


変数、配列変数の ) H 



end 
func 〜 


endfunc 
func 〜 

endfunc 


メインフログラム 

\m\ 


間数2 


次:際のブログラム例を W します。 


10/* を求めます！！ 

20/* メインブログラム 

30 int a 

40 float b 

50 input ••防桊を求めたいを人わしてください-一 〉"； a 

60 b = fact ( a ) /* f un 。 〜 endfunc て定典された fact という M 数に引数 a を渡して 

呼び出します 






80 




90 




100 

miHi 

RMRRHPR 




Qkl 運:; H 



120 /* 

130 /«ここではローカル変数 c による再鑼呼び出しを使用しています 

140 /* ローカル変«はその使用される間数 （ func 〜 endfunc で定義された閧»>内で有 
幼な変数です 

150 /拿つま0 func 〜 endfunc 内て寅3 (使用）された変教はローカル変数になります 
160 /* これに対し、メインブログラム中て寅 S (使用）された変数 a 、 b をグローバル 
変数と时びます 

170 /* グローバル変数は func 〜 endfunc て定||された W 1 数内で使用できますが、 

180 /* ローカル変数はその定義された M 数内でしか使用できません 
190 /拿 

200 func float fact ( c ； int ) 

210 if c =1 then print c ； : return (1) • 

220 print c : ••拿••： 

230 /* 

240 /* return 命令により再嬙呼び出し < factfU ] « (自分自身）に引数 c を渡して呼び出 
しています）を行っています 

250 /本結果として、 c * ( c - 1 ) 拿 ) * ( c-；n * • • • *3 拿 2* 1の磺が戾〇滴として return 命令に 

より返されます 
260 /* 

270 return ( fact ( c - 1 )* c ) 

280 endfunc 
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dummy=inkey$ 
els 

endi uno 
func fninput() 

print "Input file name > 
1 input fname 
endf unc 
func edit() 

print "Input data(END = 
while buff <> 

linput M > tf ; buff 
if buff <> then 

fwrites(buff,fp) 
fputc(CR f fp) 
fputc(LF,fp) 


endwhile 
endf unc 


/* Tiny EDITOR ted-bas 
str fname[20 J 
str buff (200) 
int fp, fc 
char CR=13 f LF=10 
/» 

ti tie () 
fninput() 

fp=fopen ( fnarae , M c ,f ) 
edit() 

fc=fclose(fp) 
end 

/* 

func titie() 
str dummy 
els 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 


1. 8 フログラムの保存と再生 

プログラムは、コンピュータのメモリにゼ惊されます。しかし、コンピュータの電源が•"切” ( OFF ) 
になるとそのブログラムは m えてしまいます。このため、ブログラムはディスクなどの外部記慷装 s 
に一旦保存して、必要があれ生しなければなりません。 

ここでは ブロ グラムを ディ スクに保存する方法と、保存されたフ 。ログ ラムを再生する方法を说明し 
ます 0 save 、 save @、 load 、 load ®、 files 命令を使います。 

1.8.1 プログラムの保存 

フログラムをディスクに保存することをセーブ （ save ) といいます。保存するときは、あとでその 
プログラムカでわかるように名前（ファイル名といいます）をつけます。 

プログラムを入力すると、コンピュータのメモリには、その内容力饱されています。しかし、窀 
手を切ったり、 X - BASIC を終了させると、そのプログラムは消えてしまいます。保存する必要があ 
るプログラムは必ず セーブし てください。 

また、プログラムを実行する前にも、プログラムの暴走に備えてセーブしておいたほうがいいでし 



t t t t t 
c n nnn 
•1 i i i i 
rrrrr 
p p p p p 
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無 
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それではセーブの方法を説明します。 

入力侍ち状態から、 

save ” ファイル名 " 

と入力します。 

ファイル名は、半角文字で18文字以内（ただし、激別できるのは8文字以内）で指■定します。たと 
えば、ファイル名を 「TEST」 とすれば、 

save ，， TEST"pj 

となります。この例では、ドライブの|ぼ定をしていませんので、 fi 抑的に X-BASIC を起! P 力したディ 
スクに彳 S 存されます。 

ドライブ B に彳乂イ/.したいときは、ファイル名の光好{に 「B: j をつけます。 

save ” B: TEST" p| 

ファイル 名には拡张 f •をつけることができます 〇 ファイル 名のあとに「• j とそれに絞く t 灼文字3 
文字以内で衍定します。 X-BASIC で扯张 f •を«略してセーブしたブログラムには、台勋的に「• basj 
という拉^ Y •がつきます。 

ファイル名については別册の 「Human68k ユーザーズマニュアル j を参照してください0 
save 命令では、ブログラムをアスキー（テキストファイル）形式でセーブします。セーブされる順 
序は、行番号の小さい順になります 0 

「@」オプションを指定すると、行号を«略した形でブログラムがセーブされます0 
save@ "B : TEST" | J)| 

1.8.2 プログラムの再生 

プログラムをディスクから再斗:することをロード (load) といいます。 

それではロー ドの方•を说明します。 

すでにメモリにプログラムがある場介は、ロー ドすることによってそのプログラムは消されますの 
で、注怠してください。人力侍ち状態から、 

load ” B : TEST" \j 

と人力します。 

この f 列では、ドライブ B にある 「TEST.basj というファイル名のフ & ログラムをロードします0 
load 命令も 「@j オプションがすぼ定できます0ただし 「save@j でセーブされだブログラムしか使 
えません。 

1的(1@命令では、 save@ 命令でセーブされたプログラムに任怠の彳 W づ•がつけれます0 
また、すでにメモリ上.にプログラムがあるときに、 load® 命令でロードされたプログラムを、マー 
ジ（浞合、追加）することができます。 

たとえば、行忝 vlO 〜100のプログラムがメモリ1•.にあるとき、ドライブ B から 「TEST.basj と 
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いう行番号が省略されたプログラムを1 10 ff 目からロードすると次のようになります。 


10 

20 

: メモリ上のブログラム 

90 

100 


load@ "B: TESTM10 \J\ 
list \j\ 


10 

20 

: メモリ上のフログラム 

90 

100 ) 


200 


「 TEST , basj が マージ される 


1.8.3 保存したファイルの確認 

ディスクに以 IV . されているファイルの兔を兄るために files 命令があります。 

次のように人力してください。 

files "B : " | J 1| 

ドライブ B のディスクのファイルパ衣/】;•されます。また、ファンクションキーので1」キーを 

押しても M じことができます。ただし、この坳作は、々レントドライブ（祝在.作:菜中のドライブ）の 
ディスクのファイル.むが衣,心されます。 


files”b:” 

K 、 グ义卜が使用可能です 


"A 
” A 
”A 
” A 
"A 
” A 






Ok 

■ 


臟 SffIPL 
臟 SttIPL 
BASILS 
ギ BAS¥GREP 
¥BfiS¥DEM0 
¥BAS¥GRftPH 
¥BAS¥PH0T01 
ft ： ¥BAS¥PH0T02 
A ： ¥BAS¥PH0T05 
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コラム X - BASIC のいろいろな起動 


1. コマンドモードからの 起動 

デスクトッフ°_而でのコンピュータの操作に惯れてきたら、もうひとつの川:界、 Human68k のコ 
マンドモードから X-BASIC を起#力してみましょう。 

デスクトッブ_而をながめてみると、タンク ( W ) のアイコンが兄えます。これが、 Human68k 
のコマンドモードへの人 U です。この 「COMMAND.Xj というアイコンを、マウスでポイントして、 
ん:ボタンでダブルクリックしてください。 （「COMMAND.X」 は Human68kver.3.0 システムディス 
クにはいっています） 

しばらくすると、デスクトッフ㈣ ifuv パ m えて、 


A > 

という文卞（ブロンブト）が衣示され、そこでカーソルが办滅しているはずです。 
Hunian68kver.3.0 システムデイスクがドライブ0にはいっているときは、 

VBASIC 2 VBASIC \ J \ (| j )| はリ ターンキーの こと） 

Human68kver.3.0 システムデイスクがドライブ1にはいっているときは、 

B : VBASIC 2 V BASIC \ j \ 

とキーボードから入力して(これは英小文字でもかまいません)ください。 XBASIC が起動します。 
では、 X-BAS1C を終 r しましょう。キーボードから、 


system J) 


( J はリターンキーのこヒ) 


と人力してください。またはファンクシヨンキーの^ J キーを押してからリターンキーを押します0 
X-BASIC か供丫して、 Human68k のコマンドモードに/犬:ります0 
コマンドモードに戻ったら、今度は、 


exit J> 


ヒ人乃し、メッセージが衣 /J •くされたら何かキーを押すか、マウスのボタンをクリックしてください0 
デスクトッブ画面に戻ります。 

Human68k の コマン ドモードでは、いろいろな コマン ドが使えます。また、システム起# J 峙の環境 
を设定することもできます。，牌 H は、 「Hunian68k ユーザーズマニュアル j を参照してください。 

2. プログラムの自動実行 

X-BASIC では、起動時に f:J$W 勺にファンクシヨンキーなどの初期設定を行うブログラムを口ード 
して次:彳 j •することができます。ただし、これらの?V神:初期設定を行った後、このプログラムのリスト 
は加!釣にメモリ上から消えます。 
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コマンドモードでプロンプトが表示されているとき、 

basic test.bas |J)| 

と人乃すれば、 X-BASIC の起$财灸、プログラム’’ test.bas” をロードして実行します。抗張/ • が ，，. bas” 
のときには、拡張子は省略できます。もし、同じディレクトリに’， autorun.bas” という名前のブログ 
ラムがあれば、単に 

basic [j>\ 

と入力するだけで、 X-BASIC の起|脳、自動的にブログラム，， autorun.bas ，， を実行します。 

•4¢に、 Human 68 k のコマンドモードから X-BASIC を起動するための并式は、次のようになリ 
ます。 1 

basic 〔〔〈スイッチ〉〕〔〔〈ドライブ名〉〕〔くパス名〉〕くプログラム名〉〕〕 

〈ブログラム名〉の扯张户が” .bas ••のとき、拉张イ.は打略できます。 

3 • 起動時のスイッチ 

Human68k のコマンドモードから X-BASIC を起觔するときには、次のスイッチを指定できま 
す 。 

/ f フリーエリアサイズの衍定 

/ W 水平_面サイズの指定 

/ Z コンフィギュレーションファイルの定 

次節で说明するコンフイギュレーションファイルの中でも、/ f スイ ッ チ、/ W スイ ッ チと同様の没 
定ができます。 

•/ f スイッチ 

例 ） basic / f 160 

X . BASIC で使うフリーエリアをキロバイト （ KB ) 中•位で衍^します。ただし、この指定で確保さ 
れるメモリは、ブログラム（テキスト）と変数•配列変数などのためのエリアです。 FM 音源のトラ 
ッ クバ ッ ファなど外部関数で使うエリアや、チャイルドプロセス，夫:行のためのエリアは含まれません。 

•/ w スイッチ 

例 ） basic / w 64 

氺 TH_i サイズ、つまリ、 I 由 U / d の横に衣/ J ; できる文字数(桁 ») を指定します0指定でき•るのは 64 
か 96 です。そ外の数姐では、エラーになリます。 
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4. オリジナル X-BASIC 


• /c スイツチ 

/ c スイッチについては、次節で詳しく說明します。 

これらのスイッチは、 M 時に設定することもできます。 

例 ） basic / w 96 / f 200 

4. オリジナル X-BASIC 

X BASIC は、起動^にスイッチを指定しなければ、 X - BAS 1 C 本体 （” basic . x ”) ヒ M じデイレク 
トリ 内の，， basic.cnf ，，という ファイルを探します。これは言い換えれば、 X - BAS 1 C は常に、 

basic / cbasic.cnf 

というスィッチをす蛇して起勤している、ということです。” basic.cnf” には、 X-BASIC を使うI..で 
の いろい ろな境を設定してあります。このようなファイルを、省に コンフイギュレーション 
ファイルと呼びます。 コンフィギュレーション ファイルがないと、 X-BASKJ は* bii 力しません0 

あらかじめ用葸されている，’ basic.cnf •’ の内衫は次のようになつています。 


FREE 


128 

WIDTH 

= 

64 

BEEP 

— 

ON 

CAPS 

= 

OFF 

FUNC 


AUDIO 

FUNC 

= 

GRAPH 

FUNC 

= 

MOUSE 

FUNC 

= 

MUSIC 

FUNC 

= 

MUSIC3 

FUNC 

— 

SPRITE 

FUNC 

= 

STICK 

FUNC 

= 

IMAGE 


の左側は、 X - BASIC のコンフィギュレーシヨンファイルの中で通用するコマンドと考えてくだ 
さい。”=”の右側は、コマンドに与える引数です0 
それぞれについて、说明します。 

• FREE 

例 ） FREE =160 

X-BASIC で使うフリーエリアをキロ八イト （ KB > 申•位で指定します。ただし、この指定で確保さ 
れるメモリは、ブログラム（テキスト）と変数•配列変数などのためのエリアです。 FM 音源のトラ 
ックバッファなど外部関数で使うエリアや、チャイルドプロセス実行のためのエリアは含まれませ 
ん。 / f スイッチと同じものです0 
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• WIDTH 


例 ） WIDTH =96 

水物牺サイズ、つまり、 _ j の横 to •に衣示できる文字数細を職します 。 指定できるのは 
64 か 96 です。それ以外の攻侦では、エラーになります 0 /w スイッチと M じもので十 


• BEEP 


.例 ） BEEP = ON 

エラーのときなどにビープ斤を吡らすかどうかを、 ON または OFF です! t 定します 


• CAPS 

例 ） CAPS = OFF 

X-1 认 SIC の f •約,; S の衣ボノ似•を衍•七します。人文？:で如;•するには on 、 小文卞で衣尔するには 
OFF を衍定します。 


• FUNC 


例 ） FUNC = SPRITE 

組み込まれる外部関数を衍定します。外部関数は、 X-BASIC の起動^にいっしょにメモリに口一 

卜され、常駐する数のことです。 X-BASIC では、あらかじめいくつかの外部開数を用意していま 
す。扯张户はすべて” .fnc” となっています。 


AUDIO . ADPCM 制御の関数 

GRAp H . グラフィック: fi 卿の関数 

mouse . マウス.トラックボール制御の関数 

MUSIC / MUSIC 3" F ‘ Mrt •源、 MIDI 、 AI ) I て M の制师⑼数 

SPR ITE . スブライト制卸の関数 

STICK . ジョイスティック制御の関数 

ima GE .. ㈣ 像处坪制御の関数 


( IMAGE は、別，んのカラーイメージユニツト川の|对数です） 

これりのフ r イルは、コンフイギユレーシヨンファイルと同じディレクトリになければなりません。 

/ c スイツチを使えば、 ’’ basic . cnf ” 以外のファイルをコンフイギユレーシヨンファイルと してす g 定 

できます。これによつて、必要な外部関数だけを組み込んだ、コンパクトな X-BASIC を作ることが 
できます。 

コンフイギユレーシヨンファイルは、ユーザーか 货 中•に作成できるテキストファイル形式です。 
basic . cnf ” を#きかえたり、新たにコンフイギュレーシヨンファイルを作成すふ >• きにけスクリ 


30 









6. BASTOC 


-ン エディタ ED を使います。 

Human68k の コマン ド モー ドでプロンプトが及ボされているヒきに、 

ed a : V basic 2 V basic.cnf 

と入力すると、 ED が起抑して、” basic.cnf” を忒み込み、修 il:. できるようになります。 EI) にっいて 
のふ糊Iは、 「Human68k ユーザーズマニュアル j を参照してください0 
Human68k システムデイスクがドライブ1にはいっている時は a :を 1) :にして人力してください。 

5. 拡張外部関数 

XBASIC は、いろいろな制 iflW 造と、口一々ル变 ft を扱える関数の定義によって、け浪り•に依<7 
しないプログラムを作成しやすくなっています。口一々ル艾?父を扱えるメリットは人きく、作成した 
ra 数は、よリ況⑴性の * いものになります。 

頻繁に利用する関数は、拉张外部間数として、 X-BAS1C に机み込んでおきたいところです。それ 
には、別売の r C Compiler PK0 68Kj に付诚している BAS1C C コンバータ 「XBAStoC (以ド、 
BASTOC)j をお使いください。 BASTOC を使うために、 C • アセンブリ • し 1 ft の知激は必要あ 
リません。 X BASIC で作った1兑微を、 BASTOC が C めソースフログラムにコンバート（受挽） 
してくれます。 

ただし、 BASTOC でコンバートするために、 it 总しなければならないことや、制限される1制も 
あリます。 

6 . BASTOC 

X BASIC は、その制谢構造や閲数の使い"などで、 C4 雄に近い fl: 様をもった BASIC です。し 
かし、 BASIC と C/i； 語はもともとのぶ•汁思想が人きく速っています。また、 BASTOC は、コンバ 
一卜する過程で独 n の芡玫などを十:成します。そのため、 BASTOC を使うI•.で守らなければならな 
い制限が把1:してしまいます。_は、別売の r CCompilerPR0 68Kj ⑻沏のマニュアルを参照し 
てください。 

• 変数名、関数名の制限 

次に；すものは、変数や関数の名前として使 m できません。 


: t ⑽が s で6桁の饮 J •:か くもの 

例） 

S 012345 

: t 姐が L で6桁の ft 卞か滅くもの 

例） 

L 012345 

: t 姐が b - ではじまるもの 

例） 

b.nanja 

外部関数の名前と同じもの 

例） 

line 


• 配列代入の制限 

沒舀をしたあとで代入できる配列変奴は、1次元配列だけです。2次心：11•.の配列'&牧は、時 
に代入(初期化してください。 

例）10 dim a (10 J 0) —10 dim a (10,10) = {1 ,2,3,4,5,6パ} 
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20 a ={ l ,2 # 3 # 4,5,6,7} 


• func 〜 endfunc に M する 制限 

閲敉の 1 j | 数の切が int ザの場合、 float 5!の数 fift を 16 :接傭してはいけません。 int 関数で変換してく 
ださい。 

例> 10 float a 10 float a 

20 9= 123.456 20 a = 123.456 

30 test ( a ) /* No good ! — 30 test ( int ( a )) 


80 end 


90 func test ( data ; int ) 


80 end 

90 func test ( data ; int ) 


また、 fW 数内でローカル変数として茛 ft した str 切の変数は、戻り W (として使うことはできません。 
str 5? の変数を戻り fift にする場作は、グローバル変数を使用してください。 


例 ）10 str sa.sb 

20 sb = test ( l 23) 


10 str sa.sb 
20 sb = test (123) 


80 end 

90 func str test ( i ; int ) 
100 str ss 


80 end 

90 func str test ( i ; int ) 
100 str ss 


190 return ( ss )/* No good ! 
200 endfunc 


180 sa=ss 

190 return ( sa ) 
200 endfunc 
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7. Human 68 k の環境設定 


X-BASIC の” basicxnf ” と同じように、 Human68k にも” CONFIG . SYS ” というシステム構築 
ファイル（コンフィギュレーションファイル）があります。この” CONFIG . SYS ” によつて、シ 
ステムの職を没定したり、デバイスドライノ くの組み込みなどを行います。 X-BASIC でも外部関数な 
V 冬利川するときは、デ八イスドライバとして次のようなものを紺み込んでおく必要があリます0 


FM 紙 MIDI、 

ADPCM の 制御関数 
浮勋小数点演兑 
かな漢字変換を利⑴するとき 
フ° リン タを利⑴するとき 


OPMDRV3.X 

FLOAT2.X 、 FLOAT3.X または FLOAT4.X 

ASK68K.SYS 

PRNDRV.SYS など 


なお、•で⑴盘されている” CONFIG . SYS ” では、これらのデバイスドライバが組み込まれる 
ようになっています。 


システム構築⑴ファイルは、ユーザーが簡艰に作成できるテキストファイル形式です。 ” CONRG . 
SYS ” をノ!••きかえるときには、 SX - WINDOW の H 本•沿マルチフォントエデイタやスクリーンエデイ 
夕 EI ) を使います。 

Human 68 k のコマンドモードでプロンブトが表ボされているときに、 

ED A :¥ CONFIG.SYS 

と人力すると、 Ely パ紐して、” CONFIG . SYS ” を^^^、修 il : •できるようになります。” CONFIG . SYS ” 
やデバイスドライバ、 EI >0 使い方のぼ•細については 「 Human 68 k ユーザーズマニュアル」を参照し 
てください。 


なお、 OPMDRV3.X は 、 「C Compiler PKO-68K ver.2.0j でサポートされていた OPMDRV2. X 
HJ の X-BASIC 外部問数とは：む : 換性がなく、 M 時に使⑴することができませんのでご注愆ください。 

米 PCMDRV.SYS でサポートされていた機能は、 OPMDRV3.X で包含していますので 、 ADPCM 
IH の X-BASIC 外部関数 （A FLAY. A REC) も促米通リお使いいただけます。 
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この帝では、主に外部関数によって実行できる機能につ t 、て説明します。 

外部聞数は、本機の持ついろいろな機能を X-BAS1C から利⑴するためのものです。外部関数によ 
って本機のほとんどの機能をリ|き出すことができる、といえるでしょう。ここでは、次のものについ 
て詳しく 3兑叫します。 

• I 叫而制师（グラフィック、スブライト} 

• FM 識铆 

• &声サンプリング (ADPCM) 

•ファイル操作 

ファイル操作はすべて標平;！对数で h •いますが、ファイルに衬する芩えんが X-BAS1C の待及の1つ 
となっているため、この炊で詳しく j 兑叫します。 

その他に、やはり X-BASIC の特 J4 といえる次の檐能についても解説します。 

•マウス、ジョイスティック制卸 

• 文字列操作 

• 广ブロセス 


2.1 画面制御 

本機で扱ぅ ㈣ iflj には、人きく分けて次の3つがあります。 

• テキスト 
• グラフィック 
• スブライト 


_血'は、ドの W のようなで氓なっているとち•えてください。 




2.1 画面制御 


グラフィック(由 Tifli とスプライト_®については、このあとの節で説明します。 

テキスト画面は、文字を表示する画面です。ブログラムの作成や編 1 上、リストの衣ボを行っている 
のが、テキスト_面です。 

テキスト I由)面の表示^イズは、基本的には6浙 x 32行と 96tffx 32行の2補類です。では、ダイレク 
トモードで、テキスト_面の数を変えてみましょう。次のように入力してください。 

screen 2,0 丄〇 [^ または width 96 ^ (このスクリーンモードではスプライト阃面は使 
えません） 

1由|而が消去され、される文字の大きさも変わったはずです。また、 M 時にグラフィック_面と 
スブライト_向も消去されています。つづいて次のように入力します。 

screen 1,0,1,0 または width 64 

これを交互に战り返してみてください。 screen 命令は、テキストI由 Hfti をはじめ次節で说明するグラ 
フィ ックI由1而やスブライトI由1而のすベてのスクリーンモードを決めるときに使います0 width 命令 
は、テキスト醜 fti の衣数を変えるときに使います。 

では次に、表示行数を変えてみます。表示行数というのは、テキスト〖由1面がスクロールする行数の 
ことです。次のように入力してください。 

console 0,10,1 \J>\ 

ここで ファイル ー％:をしてみましょう。次のように入力します。 

files _ (または E ] キーを 押します） 

I由1而の上 HM/ •だけを使って文字がスクロールします。では、元に W します。 

console 0,31,1 \j 

console 命令は、テキスト1由廊のスクロール U 数(&^く行数)を変えるときに使います0また、昨価 
hk ド行のファンクションキー表示の存無も、 console 命令で行 v 、ます。詳しくは第4氓を参照してくだ 
さい0 

2 .1.1 グラフィック 

グラフィック _tfri は、点や線、絵を描く I由価です。衣示•はすべてドット単位で行われ> ドットの位 
!S はX座.標と Y 座標で表します。 

本機のグラフィックI由 ufti には、次の図のように、論理!由1面、实_面、衣示I由〕而があります。 



論理画面 


圓……実酬 



表不画曲 
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•賴醒 

論理阃面は、 X - BASIC のグラフィック関数で、 X 、 Y 座標として引数に指定できる画面_ (座 
標系）です。指定できる範 M は次のとおりです。 

X 座標…… 一 32,768から32,767まで 
Y 座標…… 一32,768から32,767まで 


• 実酬 

灾 I 由 I 曲•は、灾際にグラフィックを S き込むことのできる_です。実 I 由)向•サイズには、 512X512 ド 
ットと 1024 X 1024 ドットの 2 つがあります。また、実_面サイズと色モード（最大表示色）によっ 
て、設定できるグラフィックページ数（最人4ページ）力で変わります。 

• 表示®® 

ぬ由 ) 向•は、如由•価の中の灾際に表示されている_です。表示両面サイズには、次のものがあリ 

ます。 

256X256 ドット 
512X512 ドット 
768X512 ドット 

では、由 Hfu •サイズや灾 I 由 itfri サイズなど（スクリーンモード）を変えてみましょう。次のように 
人力してください0ただし、グラフィック RAM を RAM ディスクなどで使用している場介は、その 
データを フ p ッ ビー ディスクやハードディスクなどにセーブしておいてください。以降の screen 命 
令を灾彳 f するとグラフィック RAM は初期化されます。 

screen 2,0,1,1 □] 

スクリーンモードは次のように設定されます（このモードではスブライト_面は使えません)。 


衣 小 1 由 II 酎サイズ .768 x 512 ドット 

次: I 由 Itffi サイズ . 1024 x 1024ドット 

色モード(&大表示色) . 16色 (65536 色の中からドット単位で指定) 


グラフ イッ ク ページ 数 . 1(グラフ イッ ク ページ 〇> 

また、グラフィック I 由1面の初期化も同時に行います。では、別のスクリーンモードを設定してみま 
しょう。次のように入力します。 

screen 1,1,1,1 y ] 

スクリーンモードは次のように設定されます。 


表示画面サイズ .512 x 512 ドット 

其画面サイズ .512 X 512 ドット 

色モード （ At 人表示色） . 16色 (65536 色の中からドット単位で指定) 

グラフ イツ クページ数 . 4 (グラフィックページ〇〜 3) 
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また、次のように入力すると、65536色1…時発色のグラフィックI由1曲が使えます。 

screen 1,3,1,!1^ 

スクリーンモードは次のように設定されます。 

向由.1面サイズ .512X512 ドット 

実画面サイズ .512X512 ドット 

色モード （Air 人表示色） . 65536色 

グラフィックページ数 . 1(グラフィックページ〇> 

このように screen 命令のパラメータを変えるだけで、いろいろなスクリーンモードを設定できま 
す。グラフィック関数を使うときには、必ずスクリーンモードを設定するようにしてください。 

実際に実_曲•の中でグラフィックを描くことのできる範 M を、クリッヒングエリアといいます。 
screen 命令を次:行すると、クリッピングエリアは &/J 足由 1面と冏じ人きさになります（このときの次:I叫 
血における衣ホI由 ufti の AU. 速«は (0.0) になります〉。クリッピングエリアを次:_切の人きさにまで 
広げておけば、衣/ j;i 由I曲•サイズよりも人きな給などを描くことができます。では、次のように人力し 
てください。 

screen 2,0,1,1 \J>\ 
window 0,0 JO 23,1023 [^i 

これで、実_面いっぱいにグラフィックを描くことができます。 window 閲数は、クリッピングエ 
リアを指定する閱数です。 

クリッピングエリアが衣示I 由|曲•より大きいときは、由 ufd を移動して次I由 itfii の別の部分を兄るこ 
とができます。次のブログラムを次:行してみましょう。 

10 str a 

20 screen 0,3,1 f 1 

30 window(0 f 0 f 511 f 511) 

40 apage(0) 

50 vpage(1) 

60 home(0 f 128, 128) 

70 fill( 140,140,350,350,30) 

80 waiting() 

90 home(0 f 0,0) 

100 waiting() 

110 home(0,0,256) 

120 waiting" 

130 home(0,256,0) 

140 waiting() 

150 home(0,256,256) 

160 waiting() 

170 home(0 f 12 8, 128) 

180 waiting ㈠ 
190 width 96 
200 end 

210 func waiting() 

220 locate 0,0 

230 print "push SPACE key” 

240 a=inkey$ 

250 endfunc 

複数のグラフィックページがあるスクリーンモードのとき、実際にグラフィックを描くページ（ア 
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ク ティ フ-へージ）を衍定するのが、 40 彳の apage 関数です。また、 ，太 : 際に衣示されるページを指定す 
るのが、 50 彳 j •の vpage 関数です。 vpage 関数の衍定によっては、沒数のページを T (ねて衣示させるこ 
ともできます。このとき、グラフィックページ0が一忝 h に衣示されます。この衣示の優; t 順位:よ、 
i 欠のようになっています。 

グラフ イッ ク へー ジ〇グラフ ィツ クページ 1 グラフ イッ クページ 2 グラフ イッ クページ 3 

衣/バ爾 fti の移孙には home 閲数を使います。このフログラムでは、実_而のほぼ中央に四角形を描 
き、 home 15{傲で衣々_•を次の W のように（①〜⑥）移|力しています ft 



グラフィックは、に次の F •顺で使川します。 

1スクリーンモード（衣，バ• ㈣ 仙•サイズやサイス VA び色モードなど）を設定する 
( screen ) 

•2 クリッヒングエリアをぼ七する （ window) 

3アクティブベージを決める （ apage ) 

4グラフィック I 叫 | fd を衣/八•する （ vpage ) 

5グラフィックを描く 

6あ J 刪 《• (クリッビング エリア) を移勳する ( home ) 

また、グラフィック ㈣ ifd のリ$1由 •_ 人】の任总の? rtW のグラフィック RAM データを配列に说み込んだ 
リ、逆に W 列のデータをグラフィック RAM に••き込んだりする関数 （ get 、 put ) もあります。 

2.1.2 スプライト 

ゲーム フロ グラムでは、いろいろな形のキャラクタか神_の中を#力き1"1っています0これと [ r * J 様の 
ことが X - BASIC で次:祝できます。 

スブライト沖 nAi は、スブライトやバックグラウンドを衣•くするためのものです。スプライト_曲で 
は、 16 x 16ドットで作成したスアライトのパターンを1つのキャラクタとして自由に#力かすことがで 
きます。 

グラフ ィッ ク itfnfli が沒数のグラフィックページを侍っていたように、スプライト_面にも複数の ぺ 
ージ があります。これをプレーン といい 、 hkkum (プレーン〇〜127)まで使うことができます。 
れフレーンには、1つずつスブライトのパターンを表示できます。また、プレーンの#号が小さいほ 
ど、衣示皆: t 順位が商くなリます。つまり、プレーンの番号が違うスプライトのパターンが瑕なった 
ときに、プレーンの番号の小さい方が後光的に上に重なったように表示されます。また、スプライト 
とバックグラウンドの衣示 俺 先順位も変史できます。 
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スブライトやあとで説明するバックグラウンドのパターンは、そのバターンに衬してハレットブロ 
ック （1 〜15> か-別りあてられます。また、そのバターンのドットに对して、別リあてられたハレッ 
ト ブロッ クの中から16色のパレットを選択して设定できます。この16色のパレットには、65536色の屮 
から仟意の色を別リあてられます。 

定義できるスプライトやバックグラウンドのバターンの iri •人敉は、あとに说叫するバックグラウン 
ド（テキストページ）の使川状況によって変わります。バックグラウンド（テキストページ）を 2 ifii 
とも使っているときは、 16 X 16 ドットのパターンは W 人 128 fl « まで定義できます。また、バックグラウ 
ンド（テキストページ）をまったく使っていなければ、 16 X 16 ドットのパターンは W •人 2561 W まで定芥 
できます。スプライトやバックグラウンドのバクーンは水平あるいは取 iWx ： 虹ができます。 

スブライトは、衣/ ji |_ i サイズか 256 X 256 ドットか512><512ドットのときに衣ボできます。スフラ 
イトを衣ボできる細叫は、次の W のとおりです 0 なお、 M の阼標はぶ i 六が sp set で、後れが sp move 
の堝作です。 


(0.0) または（一 16•— 16) 


1024 


.16) または （ 0,0) 




表示画面 


(527. 527) または（ 511.511) 
〔（ 271.271) または（ 255. 255 )〕 


sp-set 


sp move 


1 024 ドツ 


(1023. 1023) または（ 1007. 1007) 


ックグラウンドは、プレーンとは別に W 人2 Ifti まで及示できます。バックグラウンドの持及は， 


テキストページ li / d に Wc 人 4096 fW (64 x 6 權 1) のバターンを定義して、このテキストページをそれぞ 
れのバックグラウンドに別りあて、そのバックグラウンドを fJ 山にスクロールして及 W •できる点です0 
バックグラウンドは、及/ j ; i 由 lifri サイズが 256 x 256 ドットのとき 2 ifti 、512 x 512 ドットのとき1阆ま 


で衣ボできます0バックグラウンドを及ポできる紐！叫は、次の W のとおりです0 


( 0 , 0 ) 



示 I 由 Tifii サイズによって変わります。 


及ボ爾面サイズ 
256 x 256 ドット 
512 x 512 ドット 


ノ、。ターン サイズ / くツクグラウンドサイズ 

8 x 8ドット 512 x 512 ドット 

16 X 16 ドット 1024 X 1024 ドット 
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スフライトは、一般に次の手順で使⑴します。 

1スクリーンモード （768 x 512 以外の表 > j •綱曲•サイズなど）を設定する ( screen ) 

2スブライト I 由 li / ii やパターンを初期化する （ sp 」 n it sp clr ) 

3スフライトのハターンを定義する (sp def ) 

4 パレッ ト ブロックやパレッ トを定義する （sp color ) 

5 衣ポするブレーンを決める （sp on、sp off ) 

6 スプライト _ lfli をする (sp disp ) 

7 スフライトパターンを ji 力かす （sp set または sp move ) 

また、スプライトの状態を説み出す関数として S p — S tat 関数、スプライトのパターンのデータを統 
み出す関数として sp_pat 閲数があリます。 

3、4は、成のスプライトエディタを使って定義することもできます。 

バックグラウンドは、に次の手順で使叫します。 

1スクリーンモード （768 X 512 以外の表 > j ; l 由 ) 向•サイズなど）を設定する ( screen ) 

2 スプライトゆ祕や 八ターンを 衫湖化する (sp jnit , sp clr ) 

3八ックグラウンドのパターンを定義する （ sp def ) 

4パレットブロックやパレットを定義する ( S p color ) 

5テキストページにパターンを設定する （bg fm、bg put ) 

6 スプライト I 由福を表示する （sp disp ) 

7 テキストページをバックグラウンドに別りあて、そのバックグラウンドを表示する （bg 
set ) 

8バックグラウンドを觔かす (bg scroll ) 

また、バックグラウンドの状態を说み出す関数として、 bg_stat 関数、テキストページの状態を統 
み出す関数として bg 一 get 関数があります〇ハ*ックグラウンドのハ。ターンのデータを说み出す関数と 
して sp_pat 関数があります。 

次の フロ グラムでは、スプライトのパターンを 2 fl 4|、 バックグラウンドのパターンを2個定義して 

います。バックグラウンドを2面共スクロールさせながら、_曲の中を2個のスブライトかず j きます。 
1由 I 面の端にきたところで、スブライトは反転します。 


000000 03300000 

00000033330000 

00000333333000 

00000330033000 
d 1 111 1 
C . 

I 00011331133110 
1 11 11 11 
8 1 •» 1 • 1 >•••» 1•1 
I 00000233332000 
r 

4 f 00000233332000 
y 8 

丨 | 1911919 f99tltt 

3 r 00000233332000 
y h 

— 9 fftttflttffftf 

3 r 00000233332000 

X h 

t 9 ftftfftftfttff 

21 n 00000230032000 
y 8 r 1 11 1 
f - e 

2 r t 00011231132110 
xv t 11 11 11 
• • & { • 111111 > 11 • 1 •• 
18 pr 00111121121111 

y i i ) 1111 11 1111 
e f r e5. If ，，，，， — ,,,,， 
11 V t 500111121121111 
p X f i 2 1111 11 1111 
roll 

a i V p 000000425524000 

8 d I s p 1 1 

,b 1 s 

e r pf e 00000342243000 
t I f > n r 1 11 1 
ijcfia 

r t p fho 0000334433000 
pitec 11 11 
s rad 
t a 0 m 

*nh 1 拿 i 
/ i c f / d 

00000000000000000000 

12345678901234567890 

11111111112 
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630 ，t main 拿 / 

640 screen 0,3,1,1 /拿 
650 sp_init(> /* 

660 sp clr(0 f 255) /* 

670 sp—disp ⑴ 1% 

680 sp^on(0 f 3) ，t 

690 /* set sprite-pat 
700 sp^def(0 f SP0 f 1) 
710 sp^def(1 f SPl f 1) 
720 sp^def(8 f BG0 f 0) 
730 sp_def(9,BG1 f 0) 
740 sp_def<3,SP0,1> 
750 sp_def(4,SPl,U 
760 /* set palet-bloc 
770 for i=2 to 3 

780 pb=i 

790 if i=2 then r 

800 for j = 0 to15 

810 pc 二 j 

820 randomize 

830 sp_c 010 r( 

840 next 

850 next 

860 / t set background 
870 bg_fi11(0,pat^dat 
880 bglset(0 f 0 t 1) 

890 /* set background 
900 bg_fill(1,pat_dat 
910 bg set(1,1,1) 


V 1 

0 f 

0 

0, 

0 

0, 

0 

0 f 

0 

0, 

0 

0, 

0 

0 f 

8 

ar BG1( 

0, 

0 

10, 

0 

0 f 

0 

10, 

0 

0, 

0 

10 f 

0 

0 f 

10 

0 f 

0 


0 0 r 0023333393333320 UIO0000008= ( 

r) 11 » 11 »»> ) 
0 0 ^023383393933330^0 838000000063 

• •1•11>1•111>1• c ( 

0 3 10238339333333222 )a )0 ft 

p 11 11 111111111 be 


0 0 0 0 0 0 0 300000000 

6 l 


0 0 0233833333322000 ^ r 80000000 r0l001 001 0 
0,0,ha0, 0 ’ 2 ’ 3,3,3,3,3,32 12 f 00<s>00 08080808 ^00000000 

D d m m 


m 

i 

} d 


)/ d 


m 

i 

} d 


0 0 0 0 


00000000000000000000000 
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-plane 0 t 
一 sl=l:y2:8 


t 3 Sl 


0 



/* set 
i:0:di = 
while - 
i=i+di 

/* background scroll 
if x3=511 then x3=0 
if y3=511 then y3=0 
x3=x3.1 
y3 = y3+l 

bg_scroll(0,x3,y3> 
bg^scrolK 1,511.x3 f 511-/3) 

/拿 move sprite 

hr s = 0 :yr_s = 0 :hr_sl = l ： V r_sl = l:di = l ： y 2 = y 2^8 

ばぶ?匕; 1 ;； Sf =1: vr - fl : 1: hr - sl : 0: vr - sl : 0: di :- 1: y 2 :>， 2+8 

fl=(pi(2)*i)/288«4 
yl = 128-150*sin(f) 
y4rl^S-120*cos(f 1 ) 
f y 1<0 then vr sr 1 : y 1=0 
f y4<9 then vr_s1=0 
f y1>277 then vr s = 0 
f y4>247 then vr sl=l 
f y2>271 then >2=0 

il /"w ブ • ォリ 0 ティ j( s P rite > background^ > background 1) 
sp—set(0 ， i f y2 f pat_dnt(0 f hr^8 f 1 t 0) f 3) 

sp_set(1ti f y1,pat.dat(vr_s f 0 f 1 9 1) f 3) 

sp 一 set ( 2 , 288 - i ， 272-y2 ， pat_dat( 0 ,hr 一 s 1 f 2 f 3 ) f 3 ) 

sp 一 set(3 ， 288-i ， 248-y4,pat^dat(vr_sl,0 f 3 f 4).3) 
endwhile 
end 

func pat_dat(vr f hr f pb f cd) 

/: vr :垂 fl 反 (0 なら反転しない、 
h ご = 水平反転 （ ❼なら反転しない、 

/* pb = バ レツトブロック （ 1 〜 15 の « 
cd : バターンコード （ 0 、 255 の « ) 

return 《 vr*32768.hr 拿 16384 + pb*256.cd) 

endf unc 


なら反転する 
なら反転する 


籲スプライトエディタの起動方法 

スフライトエディタの起制 j ノバ’上とコマンドについて说叫します。 

スプライトエディタは、グラフィック KAM を使川します0グラフィック RAM を RAM ディスクと 

して刪しているときは、 RAM ディスクのデータをフロッヒーディスクなどに迟避してから起動し 
てください。 

•起動 

糊:•メモリ I ••にあるフ D グラムを上してよいかどう力你以•します。よければ、 X-BASIC の人力 
Vi ち状態のときに、次のように人力してください。 

load ” a: V etc V defsptool M [J 

スフライトエディクのフログラムがロードされます。この堝れは、ドライブ A の 「 ETCj というデ 
<レクトリにある 「 I ) KFS 1> T 00 L . BASj をロードしました。絞いて、ファンクションキーの F5 
キーを押すか、 「 runj と人ハしてリクーンキーを押してください 
しばらくすると幽面に、 


説明は必要ですか？ [Y/N] 
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2.1 画面制御 


と表示されます。はじめて使うときは、キーボードから Y と入力してください。ここで N と入力する 
と、 スフ。 ライト エディ タが起動します。また、兑明の衣/】•くが終わると、スフライトェデイタが起!し 
ます0 


• 起動画面の各部の名称と機能 








メッセージエリア 
^2 . カラー作成エリア 





6 . パターン 
作成エリア 





パレット 
ブロックー V 




1. パターンー％ (ん:|.): 

パターン番号〇〜127に定莪されているパターンを衣示します0 



2. カラー作成エリア(ノ r : 卜》： 

ペンカラーの RGBI ft 成分が衣示されています 。 RGBI ft 成分を変史してカラーを作成します。 


3. 作成中のバターン(中央 h ) : 

衣ボ 1 由_•が256 x 256のときの大きさです。 


4. オペレーションメニュー（中央;）： 

マウスのノ|:ボタンでダブルクリックすることにより各機能を次 1/•します。 

5. カラー作成ェリァ(カラー表示部分}(中央ド）: 

ベン カラーあるいは作成中の色が衣ボされます。マウスの A : ボタンでダブルクリックするとベン々 

ラーに色を設定します。 

6. パターン作成エリア（心•上）： 

マウスの心•ボタンをクリックするとそのドットをセットします。マウスの A : ボタンをクリックする 
とそのドットをリセットします。 


7. パレットブロック*踅(右下）： 

マウスのノ I :ボタンでクリックするとバレットブロック及びハレットが選おくされます。 A •:側の h い印 
は逸4尺されているパレットフ•ロックを W します0 

8. 選択されているパレットブロック Uf 端1.): 
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マウスの左ボタンでクリックするとパレットが選択されます。右側の臼い印はペンカラーを示します。 

ほとんどの操作は、マウスの左ボタンをクリックすることで実行します。また、スプライトはスプ 
ライトェディタ尬加和こは初期化しません。そのため、スプライトのハ。ターンやパレ ッ トを定義して 
いない状態でスプライトエディタをるとバターン及びパレットブロックー％にはのないパ 
ターンやハ。レツトが表ポされます。 init 及び clr 機能で初期化してください。 


• メニューの 

各オベレーシヨンは、すべてマウスの左ボタンによるダブルクリックで実行されます。 

—:作成中のパターンを1ドット右へ移觔します。 

卜 :作成中の ノ、。ターンを 1ドット左へ移觔します。 

T :作成中のパターンを1ドット上へ移勋します。 
i :作成中のパターンを1ドット下へ移觔します。 

90 :作成中のパターンを反時リに90度 Nfe します。 

180 :作成中のパターンを180度 N ♦云します 0 
T 1:作成中のバターンを上下/乂します。 

^ -- ^ :作成屮のハ•ターンを左右反紜します。 

get :パターンを取り込みます。 

put :パターンを定義します。 
nil :パターンを走された色で噏りつぶします。 
save :パターンまたはパレットを保存•（セーブ）します。 
palet :パターンー feh のバターンのパレットブロックを変史します。 
init :全パレットを初期イ匕します。 

clr :全ハ°ターンをクリアします。 
help : jJi 明を衣>六します。 
end :スプライト エディ タを終 f します。 


2.1.3 パレットとカラーコード 

X - BASIC では、友ボされる文卞の色とグラフィック Wj 数やスプライト関数でドット単位に使用さ 
れる色をパレットコードで設定します。 

また、 X - BASIC ではカラーコードとして0〜65535までの値を指定できます。 

ここでは、このハ。レットコードとカラーコードの関係を説明します。 

たとえば、グラフィック I 由涵のスクリーンモードが、ドット电位に65536色中故人16色まで表示でき 
るような没定になっていたとします。この場介のパレットコードは〇〜15までの値をとることができ 
ます。もちろん、カラーコードは〇〜65535までの値を指定できます。つまリ、そのスクリーンモード 
で表示できる故人の色数に応じて指定できるパレットコードの觀か決まり、その各パレットコード 
に対して0〜65535の剛でカラーコードか別りふられるわけです。 
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それぞれの I 由 1面に応じて指定できるパレットコードは次のようになリます。 

テキスト画面 . パレットは4つ(第4章の color、color [ :命令を参照してください。） 

グラフィック_面……色モード（ドット単位の故大 &/ J •く色） 

16色 . パレットコードは〇〜15 

256色……パレットコードは〇〜255 

(色モード（ドット単位の缺•人表/ j ; •色）が65536色のときはパレットコードとカラーコードは1対1に対 

応します。第4濛の palet 関数を参照してください。） 

スプライト L 由 1面 . パターン取位のパレットブロックは1〜15 

ドット申•位のバレットコードは〇〜15 

(スプライトや八ックグラウンドで使われるパターンは、バタ—ン舉位に1〜15までのバレットブロッ 
クがまず割りあてられます。さらにそのパターンのドット取位に〇〜15までのバレットコードがぶ:定 
されます。第4哉の sp _ color 関数を参照してください。） 

つづいて任怠の色の乃ラーコードを求めてみます。 

X - BASIC には、カラーコードを求める関数として rgbfWJ 数、 hsv 関数があります。 

ご承知のように光の三原色には、没の成分と赤の成分と鉍の成分があり、これらの成分の組み介わ 
せで、いろいろな色が表祝できます。 

g («) 



ここでは少し時いマゼンタのカラーコードを求めてみます。 
上図をみて、 rgb 関数を使用すると、 

print rgb(25 / 0 / 25) \J>. 

それでは、次のブログラムを入力して実行してみてください。 


10 /* rgb 
20 int ai 
30 char ac,bc,cc 
40 screen 1 9 3 9 1 9 1 
50 apage(0) 

60 vpage(1) 

70 input ”赤の成分を入力 
80 input ”緣の成分を入力 
90 input "靑の成分を入力 
100 ai=rgb(ac , be , cc}♦ 1 
110 fill(0 ， 0 ， 100 ， 100 ， ai> 
120 end 


してください <0 〜 31 卜一 〉 ••••ac 
してください （ 0 〜 3U- —〉"； be 
してください《 0 〜 31>--->";cc 


次に少し暗い白みがかったシアンのカラーコードを求めてみます。上図をみて、 rgb 関数で求めるの 
はむずかしいようです。 

次の図をみて、 hsv 関数を使用すると、 
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10 / * hsv 
20 int ai 
30 char ac f be f cc 
40 screen 1• 3,1•1 
50 apage(0) 

60 vpage( 1 ) 

70 input "色相を入力してく 
80 input "«ft 度を入力して 
90 input " 明るさを入力して 
100 ai=hsv(ac , be f cc )♦ 1 

110 fill(0 f 0 f 100,100 t ai) 

1 20 end 


print hsv(96,27,26) iJ>! 



それでは、次のブログラムを人力して次:行してみてください。 


このように、定の U 色であらわされる 7 色から求めることができるような比較的中.純な色のカラ 
ーコードは、 r K b|lij 数を使って求めることができます。 

もっと祝雑な色のカラーコードを; K める垛☆は hsv 関数を使うことができます。 

なぉ、いずれの場合も算出できるカラーコードは〇〜 65535 の偶数値となります。 0 〜 65535 の奇数 
飢のカラーコードを衣祝する坳合は、 r K b 関数や hsv 閲数で返ってきた紡果に1を加えてください。 
rgb 関数、 hsv 関数の詳細については第4章を参照してください。 

2.2 FM 音源制御 

本機では YM 2151という FMi •诫 LSI を内成しています 。 X BASIC では、この FMf 诫で迕楽を演 
谷する垛介、 MML という誘诘を使い、作色や rt : 汀などの楽潞データを、トラック バッファに ルき込み 
ます0トラック バッファは、の チャンネルとは別に管理されるため、必要に応じて H 山に各チ 
ヤン ネルに•別リ A てること がで きます。 

また、 演 谷 時にチャンネルを指定することもできるので、より効 中 的な楽譜データの,;ビ述や多彩な 
茂楽演奏が町能です。 



ささ 


さだだ 
だ<< 
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XBAS 1 C では、に次の手順で FM 音源を使用します 

1、 FMff 源を初期化する .( mjnit ) 

2、 MML データを格納するトラックバッファを麟する .( m — alloc ) 

3、 トラックバッファに FM 音源の各チャンネルを剖リ對てる . (m assign ) 

• I 、演务のテンポを設定する .( m ^ tempo ) 

5、 ト ラックバッファに MML データを mi 内する . （m trk > 

6、 演务する .（ m — play ) 


※ド乂作淞や: V 1 ML データについての•脚丨1は、 「 Human 6« k ユーザーズ マニュアル」 を参照してくださ 


※それぞれのトラックに別リ .1 てるトラ ••/ クバッファの総•が、 64 kB を越えて使川される場介は、 
CONFIG . SYS ファィル内の 0 PMDRV 3. X の行を外き換える必 •&: があります。 

詳しくは 「 Human 68 k ユーザーズマニュアル j を参照してください。 

次に,;じ攸されているのは、： V 1 X 1 I . のデータを X BASIC で iVi 谷するサンブルブログラムです。 
mw 数に ついての 詳細は、第4炊を参照してください。 


100 /* music sample ” おお、スザンナ ！！” S.C.Foster 

110 i nt a i • ^ ^ 丄 _ 

120 s t r as f bs f cs f sl[50] / * i ： /"• ® ft <〇 U ^ w 

130 si ■” 抒色变史 _[h] m «-[p ] 冷止 《[ s ] n IW-CC] 終了 《 [E]:” 
140 m 一 init() /*FM 荇源の WWi 化 

150 m:sysch (” 0PM ”） /* き源のチャンネル 》 号の M 当 

160 els 

170 M.CHANGE() ： MML.IN() ： m.play() 

180 repeat ，，” 

190 locate 0,10 • prin t chr$(5) ； sl；Iinput t c s 

200 if cs ■” H” or cs ■” h” then { /* もし H なら抒色変 ® 

210 M.CHANGEO IMML.INO ： m.play()} 

220 if cs ■” P” or cs ■” p” then { /* もし P なら iW 葵 
230 m.play()} 

240 if cs 囂 ” S” or cs»”s” then ( /* もし S なら f ? 止 

250 m^s t op()} 

260 if cs ■” C” or cs = ”c” then { /* もし C なら两開 
270 m-Cont()} 

280 if cs« n E w or cs*”e” then { /* もし E なら終广 

290 m.s top()} 

300 until cs 篡 ” e” or cs ■” E” /*cs«E なら repeat 終 r 

310 end 

320 /* - 抒色変 ® . . 

330 func int M.CHANGEO 
340 for ai s l to 5 

350 m.al loc(ai ,2000) /* トラックバッファの確保 

360 m.assign(ai ,ai) / 傘トラフクハ • フファへチ t ンネルを割当 

370 next 

380 locate 0 • 0 Iprin t chr$(5 )； 

390 1 input ”&色 S り • の指定 （ 1 〜 2 0 0 ) - - > ? ”：as 
400 print chrS(5): 

410 1 input ” テンポの指定 （ 2 0 〜 3 0 0 ) - - > ? ”；bs 
420 end f unc() 

430 /* - MML データの格納 - 

440 func int MML.INO 

450 m_trk(l,”q7116 o4 vl4 t”+bs+”@”+as) 

460 mjrk(2 •” q7116 o4 vl0 t ”.bs.”@” + as) 

470 m_trk(3,”q7116 o4 vl0 t”+bs+”@”+as) 

480 m-trk(4 ， ”q7116 o3 vl5 t”+bs.”@45 ”） 

490 m-trk(5 ， ”q7116 00 vl5 t”+bs+”@47 ”） 

500 m-trk(l,” く c&d e8g8g8a8 g8e8c8.d e8e8d8c8 d4 •”） 
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510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 


t g8 く C8c8d8 c8>g8g8.f g8g8f8e8 f4 •”） 

>c8g8e8g8 c8g8e8g8 c8g8e8g8 >b8 く g8d8 ”） 
d e8g8g8.a g8e8c8.d e8e8d8d8 c4 •”） 

f g8<c8c8.d c8>g8g8.f g8g8f8f8 e4 •”） 

c8g8e8g8 c8g8e8g8 c8g8d8g8 c8g8c8 ”） 

d e8g8g8.a g8e8c8.d e8e8d8c8 d4 •”） 

f g8<c8c8.d c8>g8g8.f g 8g8f8e8 f4 •”） 

c8g8e8g8 c8g8e8g8 c8g8e8g8 >b8<g8d8 ”） 

d e8g8g8a8 g8.ec8.d e8e8d8.d c4r4 ”） 

f g8 く c8c8d8 c8.>gg8.f g8g8f8.f e4r4 ”） 

c8g8e8g8 c8g8e8g8 c8g8d8g8 c8c8d8e8 ”） 

f4 a8a4a8 g8.ge8c8 d4r8 ”） 

c4 f8f4f8 e8.eg8g8 f4r8 ”） 

w c8f8c8 c8c8d8f8 e8g8f8e8 d8>b8 く c8 ”） 

” c&d e8g8g8.a g8e8c8d8 e8e8d8.d c4r8 ”） 

” e&f g8<c8c8.d c8>g8g8a8 <c8c8>b8.b く c4r8 ”） 

” d8 c8g8e8g8 c8g8c8f8 g8g8f8.f e8g8c8r8 ”） 

to 23 

(4 •” c8r8ccr8” ） • 乂 trk(5 •” r8c8r8c8 ”） 




2.3 音声サンプリング (ADPCM) 


/* M.PCMREC M.PCMON etc sample 

1 n t a し b i ， e i 

str as»ms,fs f ts[50] 

ts- w 3.9k-[0] 5.2k-[l] 7.8k-[2] 10.4k-[3] 15.6k_[4] 
dim char dc(30000) 

dim str hs(4) *{”3.9kHz ” ， ”5 .2kHz ” ， ”7 .8kHz” ， ”10.4kHz” ， ”15.6kHz”} 

screen 2 f 0 f 1 9 0 

error oi f 

/ * main 

repeat 

cls ： input n iiiY*[R] 再生 1 * [P] 終了 18 [E]:”，ms 
if ms a ”r” or ms»” 会 ” then { MPCMREC() ) else { 
if ms 露 ” p” or ms-”P” then { MPCMPLYO } } 

until ms-”e” or ms ■” E” 
end 

/拿 - record - 

func MPCMRECO 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 


2 . 3 音声サンプリング （ ADPCM ) 

本機では、 ADPCM という方式で音声をサンプリングして、録音•再生することができます〇 X - 
BASIC には、そのための関数が用意されています。 

サンプリングして緑音した音声はメモリに格納されます。これをファイルに齊き出すことで、音声 
データを フロ ッピーディスクやハードディスクなどに^ I * して、あとで再生することができます 0 

鉍斤は、本機のオーディォ入 ( AUDIOIN ) にラジカセなどのライン出力端 JMLINEOUT ) 
を接続して行います。また、再屯は、内藏スピーカから行うか、オーディオ出力端~户 ( AUDIOOUT ) 
に接絞したオーディオ機器から行います。 

. 办生できる n 声の反さは、サンプリング周波数によって変わります0サンプリング周波数が 
灯ければ、鉍 r ? するときに一度に m 竹するメモリが大きくなります。詳細は、第4なを参照してくだ 
さい。 

ADPCM による鉍 S •と再也は、奶に次の手舣で使用します。 

1 PCM データ （ fY 跔を格納する配列芡数をする ( dim ) 

2緣音する (m pcmrec , a rec ) 

(2-1 PCM デー タをファイルに保かする） 

(2-2 PCM データをファイルからふたみ込む） 

3付1:する （m pcmon，a play ) 


セーフ 



a_play □ート 


本機とオーディオ機器を接絞して、次のプログラムを次:行してください。 


Z 

H 

位 

wn 


さ 

だ 

く 

て 


択 
逆 
を 
数 
波 

周 bi 
• »1 
ク t I 

ン W > 
リ t i 
• u b 
フ p 
ン n d 
fin 
音 ;: a 
鉍 ts <5 

n i 
b 


t t 
t n n 


3 s *1 1 
cirri 
p c p p t 
n 
u 


e 

r 
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320 print: print hs (b i) ; ” で録音します！”： 

330 repeat 

3^ as = nw ： i 25 ut ” [—」] キーを押す•と録音を開始します：”， as 
350 until as パ” 

360 print ” 鉍音中です！ w ： m.pcmrec(bi ,30000 t dc) 

370 repeat 
380 els 

390 print ” 鉍データをセーブします •” 

400 locate 4,5:print chr$(5 )； 

410 input” ファイル名 ：”， fs 

420 e い fopen(f s ♦” .PCM” •” r” ）： fclose(ei) 

430 if ei 露 - 1 then { MPWRITEO } else { 

440 print” そのファイル名のデータがあります •” 

450 repeat 

460 locate 4,13：print chrS(5 )； 

470 input” 上番きしますか？ ok-[Y] no*[N] end«[E]”，as 

480 until strehr (” YNEyne” ， asc(as))<>-l 

490 if as •” Y” or as ■丫 then- { MPWRITEO }} 

500 until as ■” e” or as •” E” 

510 endfunc 

520 func MPWRITEO 

530 ai-fopen(fs’.PCM” ， ”c ”）： firi te(dc ， 30000,ai) 

540 fclose(ai) : as •” e” 

550 endfunc 

560 I• - play - 

570 func MPCMPLYO 

580 repeat 

590 locate 0 9 0 

600 print ” 録音データをロードします •” 

610 locate 4 f 5：print chr$(5 )； 

620 input” ファイル名（戻る ■[£]):”• fs 

630 print：if fs ■” e” or fs •” E” then returnO 

640 ai-fopen(fs^".PCM", w r w ) ： frcad(dc ,30000, ai) ： fclosc(ai ： 

650 H ai--l then pr i n t ” その名前のデータはありません •” 

660 until a i 0-1 

670 repeat 

680 locate 0,7 

巧 0 print” 鉍音時のサンプリング煳波数を入力してください ” 
700 print ts ；： input ”” ，bi 
710 until bi<5 and bi>-l 


720 m.pcmset(0,bi•30000,dc) ： m.pcmon(0 f bi) 
730 end f unc 
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2.4 ファイル操作 

X - BASIC では、どのようなファイルもすベて、中•なるデータの連絞として扱います0ファイルを 
ランダムに操作するときは、ポインタという 「【 j 印」を使ってデータを説み®きします0 

データの说み ft •きは、1バイト中•位で行う場合と、データの型 （ char 、 int 、 float ) 墘位で行う場 
ft •があります。また、文？••列中•位でも泣み芥きを行えます。この場合はそのデータの切こ応じてボイ 
ンタが移勋していきます。 

この他にファイルをランダムアクセスして、データの切にかかわりなくファイル内の任意の位凍に 
ポインタを移勋することもできます0 

なお、ファイル搽作で使⑴するドライブ名やファイル名の詳細につ v 、ては別册の 「 Human 68 k ユー 
ザーズマニュアル J を参照してください0 

ファイル枨作の丛本的な流れは、次のようになります0 

1ファイルをオーブンする（または靳 W に作成する） （ fopen ) 

(2 ファイルをランダムアクセスしてボインクを移: Sfti •る ( fseek )) 

3ファイルからデータを泣み出す （ fread 、 fgetc 、 freads ) . またはファイルへデータを; 1 !: 

き込む ( fwrite , fputc 、 fwrites ) 

4 ファイルをクローズする （ fclose 、 fcloseall ) 

あるファイルを搽作するためには、まずそのファイルをオープンしなければなリません0ファイル 
にはオーブンモードと呼ばれるモードがあり、それぞれ次のような患味があります。 

クリエイトモード （" c ">. ファイルを新说に作成します 

すでに同じ名前のファイルが存在•するときはデータがすべて失 
われます 

リードモード（’’「"> . すでに存在するファイルを Zc み出し 1 、¥•⑴としてオーブンします 

ライトモード （" w "> . すでに“•在するファイルを丼き込み#用としてオープンします 

リードライトモード （"「 w ，，> •••すでに“在するファイルを泣み i 1 : •き [ Aj ⑴としてオーブンします 

ファイルをオーブンすると、ファイルごとに S り•がつけられます。以後の说み; 1 :••きは、このファイ 
ル? ff り•を使って彳 f います 0 

オーブンしたファイルは、処邱か於ったら必ずクローズしなければなりません 0 ファイルをクロー 
ズしないと、データが坎れてしまうことがあります。 

プログラムでファイルを搽〇:•するときには、まず、ファイル蒗ひをしまっておく殳数 （ int 5!!) を宣 
パ•します0もし段敉のファイルをオーブンするのであれば、この変数も後数⑴总します。また、ファ 
イルを狻み外きするときなどに、閲数がいろいろな悄報を W リ侦として返します（ただし、/乂•リ侦を 
無 W してもかまわないこともあります)。そのための変数 ( intl ' l ) も宣言します。 

10 int fp /* ファイル番号 
20 int fc /t 戻り值 

ファイル Z があらかじめ決っているときは、それも変数 （ strW にしておいたほうがよいでしょ 
1〇 

30 str Iname= sample•dat M 
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int fp / 
int fc /: 
char dt . 
dim char 
int i t dp 
str fnam 
fp=fopen 
dp=fseek 
for i=0 
dt :d. 
fc=f; 

next 

fc=fclose(f 
f p=fopen(fn 
dp=fseek(fp 
dt=fgetc(f p 
print cha$( 
fc=fclose(f 
end 


3 Jf 川の文？:を 


いま作成し;^ 


讲備ができ t 



»表ル 

字のィ 






2.4 ファイル操作 


次のブログラムは、テキストファイルを作成するエディタです。•ただし、編集の機能などはありま 
せん。また、常にクリエイトモードでファイルをオーブンするので、注意してください0 


10 /* Tiny EDITOR ted.has 
20 st r fnamc(20] 

30 str buff [200 I 
40 int fp, fc 
50 char CR=13 f LF=10 
60 /* main 
70 fninput() 

80 fp=fopen(fname f M c M ) 

90 edit() 

100 fc=fclose(fp) 

110 end 

120 /» fninput 
130 funo fninput() 

140 print M Input file name > ; 
150 1input fname 

160 endfunc 
170 ハ edit 
180 func edit() 

190 print .Input data(END = / ) 
200 while buff く〉 

210 1 input : buff 

220 if buff <> then ( 

230 fwritos(buf f,f p) 

240 fputc(CH f fp) 

250 f putc(LF f f p) 

260 } 

270 ^ndwh i le 
280 endfuno 



RS -232 C ( AUX ) やプリンタ （ PKN ) などのデバイスも、ファイル投作と M 様に扱うことかでき 
ます。次のブログラムは、 RS -232 C ボートからデータをぶみ込み、それをプリンタに出力するプログ 



10 /* RS-232C からデータを找み、ブリンタに出力 rstolp.bas 
20 str fnl = ..AUX" 

30 str fn2 = **PRN M 
40 int fpi ， fp2，cl 
50 /* main 
60 init() 

70 type() 

80 fclose(fpl) 

90 fclose(fp2) 

100 end 
110 /* init 
120 func init ㈠ 
130 str dummy 

140 print" 準備ができたら何かキーを押してください " 

150 dummy=inkey$ 

160 fpl = fopen( fnl f M r #, ) 

170 fp2 = fopen(fn2/•«••) 

180 endfunc 
190 /* type 
200 func type() 

210 while cl <> &H1A 

220 cl=fgetc(fpl) 

230 fputc(clt fp2) 

240 endwhile 

250 endfunc 
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• 5 その他の機能 

いままで綱してきたものの他にも、 X - BASIC には多くの関数が用意されています。 

また、子（チャイルド）ブロセスによる Hunian 68 k のコマンドの実行もサポートしています。 

.5.1 マウス、ジョイスティック制御 

マウスやジヨイスティックも、 X - BASIC で制御することができます。•牌 II は、； fS 4なを参照してく 



マウス制御 

X.BASIC では、マウスの切朗化、マウス々ーソルの移制 / 紐 | 叫のぶ定、ボタンの状態の確,ぶなどを U 
. ます。次のブログラムでは、マウスを初刖化したあと、マウス々 ー ソルの柊じ m を没定していま 

0 

10 /* mouse sample 
20 screen 2 • 0 • l ,1 
30 vpage(1) 

40 mouse(0) 

50 msarea(0 f 0 f 600 9 400) 

60 box(0 f 0,600, 400 f 15 f &HFFFF) 

70 mouse(1) 

80 locate 1,5 

90 print ” < 0 ， 0 ) く - — > < 600 ， 400 > の ® 囲で マウスを 動かして ください！ •• 

100 end 

ジョイスティック制御 

XBASIC では、ジョイスティックのスティックとトリガーの状態を凋べることができます。次の 
ログラムは、ジョイスティックのスティックがどの； ;• 向に !^ かされたかを衣ホします。 

10 /* joy stick sample 
20 int ai ， bi 
30 els 

40 while bi< >1 
50 ai=stick(1) 

60 locate 10,11 

70 switch ai 

B0 case 1 : pr i nt left back ( H ) : 

90 case 2:print "back ( 後） = 

100 case 3 : prinr .right back ( 右後） = 

110 case 4：print left ( t ) = 

120 case 6：print "right ( ) = 

130 case 7 : print 'left forward (左前 > = 

140 case 8:prin> "forward ( ) = 

150 case 9 : print ’.right forward ( 右 前 > = 

160 default ： locate 10, I 0 ： pr i nt ••ジョイス 

170 locate 10,11：print 

1B0 endswitch 

190 endwhile 
200 end 
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2.5 その他の機能 


2.5.2 文字列操作 

X BASIC では、ファイル操作などで扱う文卞列に対して、いろいろな文字列操作を行う関数を数 
多く用意しています。 

♦指定された文字の神:頌を凋べる関数…… (isalnum、isalpha など) 

♦文卞列から指定された义卞や文卞列を検索する関数…… (instr、slrchr、strcspn など> 

♦指"された文卞や文字列を変換する関数 .(mirrorS、strlwr、strnset、toascii など} 

參文字列から衍定された文を K 切リ文？とした文字列に分解する関数…… (strtok) 

♦衍定された文7でできた文？:列を作成する閲数 .(space$. strings, strset など> 

♦文列と数侦を変換する開数 .(asc、atof、bin$, chrS、ecvt など） 


次の ブログラムは、ファイルのデータの1 义卞修 il:. をけうものです。 


10/* ファイルの 1 文字«正サンブルてす 
20 int ai.bi.po 

30 str as,bs,c3,ds,chel ， che2,3yul.syu2 
4 0 screen 2,0 9 1 t 1 
50 els 

60linput •; ファイル名を入力してください - >?’；as 

70 ai = fopen ( as f ff c M ) 

80 while -1 

90 print •• f X68 ，を人力すると 一 0 ファイルをクローズします 

100 1 input ••文字や文字列を人力してく ださい---〉？"； bs 

110 /* chr$(13) = cr f chr$(10) = If f chr$(26) = ctrl + z 

120 if bs = ,# X68 M then bs = ba+chr$ ( 26 ) : break 

130 bs = bs + chr$(13)>chr$(10) 

140 fwrites(bs f ai) 

150 endwhi1e 

160 fwrites(bs,ai) 

170 fclose(ai) 


180 /t update 
190 els 

200 linput ••♦{ 正はありますか？ く y/n>--->";chel 
210 if chel = ,# n M then end 

220linput 正後のデータを格納するファイル名を人力してくださ い --- 〉？ 1 、 b 3 
230 ai = fopen < as , rw” > 

240 bi=fopen(bs, M c M ) 

250 repeat 

260 els 

270 freads(cs,ai} 


280 

290 

300 

310 

320 

330 

340 


print cs 

length 二 strlen(cs) 

linput ••この 中に♦{正する文字はあります か？ く y/n>- —〉”； chel 
if che 1< > M y M then { 

cs=cs+chr$<13)♦chrS(10) 
f writes(cs,bi) 
continue) 


350 while -1 

360 linput •• t? 正したい 1 文字を人力してく ださい---〉？"； syul 

370 po=strchr(cs , asc(syul)) 

380 if po = -l then print •• 該当文字がありません！！ ••： continue 

390 linput 正後の 1 文字を人力してくださ い一-〉？”； syu2 /* 刖除の*合 

はこの行を取る 

400 ds=cs 一 

410 cs = left$(cs ， po い syu2 + right${cs，l ength-po - 1 ) / * B f l 除の ® 合はこの f 了 

の 1 、 syu2 " を取る 

420 print " 次のように « 正します ” 

430 print cs 

440 linput •• よろしいですか？ く y/n> > ;che2 

450 if che2<>"n” then { 

460 cs=cs+chr$(13)+chr$(10) 


00 
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470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 


fwr 1 tes(cs , bi) 
break} 

cs = ds 
print cs 
endwnlie 

until feof(ai)=-1 
els 

grir^ 正前のファイルの内容と♦{正後のファイルの内容を表示します 

iseeKt&i f 1 u ) 

fseek(bi 9 0 9 0 ) 

print ' 修正 ® のファイルの内容を表示します！ •• 

ireads(cs t ai) 
print cs 

until feof(ai)=-1 

print ^ { 正後のファイルの内容を表示します ？" 
repeat 

freads(ds , bi) 
print ds 

until feof(bi)=•1 
fcloseal1() 
end 


2.5.3 子プロセス 

X - BASIC には、 Human 68 k のコマンドを次:行するコマンドがあります。そのため、フロッピーデ 
イスクのフォーマットやコビー、スクリーンエディタ EI ) を使ったテキストファイルの褊敗•などを、 
X - BASIC を終了することなく灾行できます。 

人力作ちの状態で •’ ！ ’’に絞けて Human 68 k の コマン ドを入力してリ ターン キーを押します。ドラ 
イブ B の フロッビーディ スクを フォーマッ トするのであれば、次のように入力します。 


Iformat b : 


Human 68 k でのコマンドの，太:行か供 f すると、 

BASIC へ戻ります、何かキーを押してください 

というメッセージが表示されます。キーを押すと、 XBASIC に戻ります。 
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章 X-BASIC の文法_ 

この欲は、まだ说明していない X-BASIC の文法につ^、てまとめてあります。 

3.1 X-BASIC で使用できる文字と特殊記号 

XBASIC で使⑴できる文字は、英:文字(大文字、小文字)、数字、カタカナ、ひらがな、特殊记 
り、漢字、そして制御文字から携成されています。文字についての詳細は、資觸の「キャラクタコ 
ード衣 j を参照してください。 

半角文字と全角文字 

通常 X - BAS 1 C では、乃ーソル1つ分のサイズをもつ半灼文字を扱います。キーボードからコマン 
ドをリ.えたり、ブログラムを圮述するには t 灼の英数7を使い、々夕々ナやひらがな（全州、•廣字（全 
f <\) U 文卞列データとして使うものとろ•えてください。 

_記号 

使⑴できる文字の中でも、ネ辨••:び•と呼ばれる文字はそれぞれ特別な，®味を持っています。特殊以 
•り.の使い方については、第4氓「リファレンス」で必要なたびごとに说明しますが、ここではそれぞ 
れの您味をまとめて说明します。なお、？牌^ビ号のうち、演兗子については、 3.4 「式と演努 . j 、 并 
式衍定文字については第4故の print 命令で说明します。 

(空白） ブログラム中の命令通と命令推、変数名などの区切 1 )として使い、ま 

たプログラムを兒やすくするために入れることができます。ただし、 
户約通(資料編^ f •約語一位 j 参照)の中には如 ' J を入れることはできま 
せん。また、文字定数 （3.3 「定数 j 参照)の中の空白は文字としての 
总味を侍っています。文中の空 f 〗 はプログラムの実行には杉®を与え 
ません力气コンピュータのメモリには空白も^!饱されます。 

!(娜 K 符〉 チャイルドプロセスコマンド。第4隶 chi Id 命令参照。 

例 ） !dir 

”(引用符） 文字列を囲みます。 

例 ） print ” ABC ” 

#(番号記号） float SW 性文字。 

例 ） print 3#/4# 


(アポストロフィ） 


文字データを囲んで char 型の数値データとします。 


第 3 章 X-BASIC の文法 


( >括弧 

,( カンマ） 

一（ハイフン） 

/* (於！^とアスタリスク） 

:( コロン） 

:( セミコロン） 

?(疑問符) 

[ ]鳩•弧 

{ 


例 ） char a =’ A ’ 

演算の«順位を変えたり、関数のリ I 数リストをくくったリす るのに 
つかいます。 

例 ） print ( 1 + 1 )* 3 
a = pow (2, 3) 

データを权数你|衍定するときに、その K 切リとして使います。 prim 命 
令で使われた場れには、8桁ごとに区切って表示されます。 

例 ） print ” aV ’ b '” c ” 

数値の範 M を衍定するときに使います。 

例） list 命令で衣/ j ; •する行の砲叫を衍定するとき、 

list 100— 200 

とすれば、1 00 U から200行までが衣,】;•されます。 

注龙文の先頭に满きます。第4饫 rem 命令参照〇 

例） /* コノギヨウハコメントデス 
マルチステートメントの | ズ • 切りとして使います。 

例） a =2 + 3 :print a 

データを权数 flAWT / ii するときに、その KW リとして使います。 print 命 
令で使われた坳介には、データは别•のデータに絞いて衣ボされます。 

例 ） print " a ” ： ” b ” ： ” c ” 

また func 〜 endfunc で定箱される関数名に絞くリ|数リスト内の変数 
名に特別に5?を衍定するのに使います。 

例 ） func foo ( i ; float ， j ; int ) 

Print 命令の代わりに使います 0 
例）？ 25*12 

str ” 変数の文卞ハ•ッファサイズを指定します。第 4 な str 命令参照。 
例 ） dim str a (10) [20] 

沒数行にわたってデータや if 文を記述するのに使います。 

例）10 dim str c ( l > = {” a ”， 

20 ” b ”} 
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3.2 X - BASIC の変数や定数などで扱うデータ 


3.2 X - BASIC の変数や定数などで扱うデータ 


X - BASIC の变数や定数などで扱うデータは、次のように分類することができます。 


データ 


文字型 （ str 型) 


半角文字 

全角文字（ひらがな、:藥字) 



整数型- 

実数型 （ float 型) 


I バイト整数 ( char 型) 
4 バイト整数 （ int 型） 


文字列 ( str 型) 

255文卞以内の文*ドをつないだデータです。义卞列には、 X - BASIC で使⑴できる文卞ならばどれで 
も使うことができます。ただし、文字列を兑術演»(3. 4 「 A と演兗 j 参照）に使うことはできませ 

ん〇 

数値 

敉飢は W 制 iiiW をけうことができるデータです。敉 fift には蛴と次:数 W とがあり、数侦の取る狼 
はそれぞれで輿なリます。 

整数 （ int 型） 

4八イト （32 ビット> で衣视される符号付き整数で、一2 31 から2 31 -1 (-2, 147.483,648から 
2,147 ,483. 647)までの侦を使 HI できます。核数切の数侦を使う演袄は、谢が短くてすみます。 
X - BASIC は桉数切を基本にしているので、待にデータ 1 P ! を指定しないときは整数 ( int > 型になりま 
す0 


整数 ( char 型） 

1バイト （8 ビット > で衣祝される？ T ，〉 無しの桉敉で、0から255の侦を使⑴できます。キャラクタコ 
ードなど、1バイト中•位のデータ制御に W も打効です。 


実数 (float 型） 

$数はすべて仿•抑&次:数で、8八イト （64 ビット> で衣祝されます。 

1ビットの符り•部 ( jK 、 ft ) と11ビットの指数部及び52ビットの仮数部から構成されています。この 
紡！!！:衣呪できる絶は、1 . 1125369292536 E —308から3.5953862697246 E +308 となります。 

また、敉飢 M データは必袈に心じて、その W を他の”に安!換することができます。ただし、文字型 
と数値5?の間でこの変換をけうには val 、 str $、 asc および chr $の各関数を使います(第4章参 
照)。 

切の変換は、次の肋 W にしたがって i すわれます。 

籲数侦を咒なるデーク唧の攻侦及 T ■(に K 入する坳合、牧飢は代人： t の玫 fift 芡数のデータ®に変換され 
ます0 
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•データ切の異なる数値を使った演算では、データ型の低い方が高い方のデータ型に変換されて演符 
が行われます。 

•論理演算の場合、扱われる数値はすべて整数型に変換され^結果は整数 ( int 型）で得られます。 

•'太:数か繁数に変換される場〇は、小数点以下は切り捨てられます。このとき、切リ捨てた結果か繁 
数5!!で扱える範 M を越えてし、ればエラーとなります。 

3 . 3定数 

定数とは、それぞれに固有の値を侍ったデータのことです。定数の；^き方は、 3. 2で述べたデー 
夕型によって異なります。 

3.3.1 文字定数 

文字定数は、文字列を引用符（” ） で[相んで表します。文字列の垃さは255文字以内でなければなリ 
ません。また、数 •}*: をリ IJH 符で M むと文卞列とみなされ、兗術; iiiW に川いることはできません。文 
列は常にキャラクタコードが0で終わります。はじめのキャラクタコードが 0 のものはヌルストリン 
グ ( null 文字、無文字列）として扱います。 

例 ）” THANK YOU " 

”3.14159265" 

3.3.2 整数型定数 

核数ザの定数には、以ドの4つの形式があリます。 

•1 0進形式 

int 型なら 一 2,147,483,648から2,147.483,647まで、 char 型なら0から255までの整数です。負の 

核数の場作、数の前に必ずマイナス符 V ；•(—）をつけなければなりませんが、プラス符 VM + ) は朽略 
できます。 

例 ）0 
-123 

♦ 8進形式 

充頭に&0(または&〇)をつけて8進数 （0 〜7 ) を並べたものです。範州は int 5?では&0 〇〜& 
037777777777までです。&037777777777〜&020000000000まではれの数で、一1から一 
2,147,483,648に対応します。 

例) &012345 . 10進数では5349 

&037777777777 . 10進数では一 1 

char 5?では、&0 〇〜&0377が〇〜255に対応します 0 
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3.3 定数 


•1 6進形式 

先通に & H (または & h ) をつけて16進数 （0 〜7、 A 〜 F または a 〜 f > を並べたものです。範囲は int 
S では &H 〇〜 & HFFFFFFFF までです。 & HFFFFFFFF 〜 & H 80000000までは負の数で、一1 
から 一2,147,483,648に対応します。 


例) & H 100. 10進数では256 

&HFFFFFFFF. 10進数では一1 

char 5?では、 & H 0 〜 & HFF が0〜255に対応します。 

♦ 2進形式 

に(または & b ) をつけて2進攻 （0 か1> を並べたものです。 碰 S : iint 5〖! では &B 0〜 

&bi mil までてす。 & B11111111111111111111111111111111 

B 1〇〇()〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇 i では ft の数で、 - 1から一2,147.483,648に対応しま 


例） & B 1 00000000 . 10進数では256 

& B 1111...(32 桁) . 10進数では一1 

char 切では 、 &B 〇〜 & B 11111111 が〇〜255に対応します。 

*注意： 2進形式、8進形式、16進形式で入力された数値は、 print や lprint 命令で出力すると、10 
進形式で出力されます。10進以外の形式で出力するときは、それぞれ bin $、 oct $、 hex $ を使って 
文字列として出力してください。 


•その他 

，（アポストロフィ > で I 相まれた 1 文字の文字データは、そのキャラクタコードを侦とした char 5? 
の数 fift となります。 


例）’ A *. char 型の65 

3.3.3 実数型（浮動小数型)定数 

火数”の定数には、以下の3 つの 形式があります。 

• int 型の酬を超える数値 

• 14« j 以内の数値と E (または e ) を使った指数表示の組み合わせ （ E または e の範囲は ±308) 
•最後に.（ビリオド）か#(番号記号)が付けられた数値 

例） 3 QQD ()00000 
1235 E -20 
5. 

426# 
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第 3 章 X.BASIC の文法 


3.4 式と演算 


八とは、 (, n 切の文法を示すものであり、定玫ゃ炎炎を演兑 f - uro に使う行殊,;じりのこと）で 
姑んだものです。 A の演兑結! li は1倘の敉狼または文，}•••列になりますから、中•に数侦ゃ文字だけのも 
.のも式と呼びます。 

例） ，， BASIC ” 

10 + 3/5 
2 

a + b / c—d 


X-BASIC の演兑は、次の 5 つに分けられます。 

♦算術演算 
♦閭係演算 
嫌論理演 K 
♦間数演算 
♦文字列演算 

以ドにこれらの演兑について说叫します。 

3.4.1 算術演算 

P ■•術演兑 Y •には次のようなものがあります。なお、 WfW 式の中に文卞定数や文字変数が人ってはい 
けません。 


演算子 

演算 

例 

— 

マイナス符 

—X 

*、/ 

m . m . 

x 木 y 、 x/y 

¥、 mod 

辂数の除兑、利余 

x Y y , x mod 

+、一 

加保 、 im 

x + y 、 x-y 

shr 

右シフト 

x shr y 

shl 

左シフト 

x shl y 


演讶の 後; twTr : も、この顺祗になります。を変史したいときには«弧（ >を使えば、«弧内の 
演算子は他の演算子より先に実行されます。 

-参考一--- 

♦整数での演算 

変数や定数のときと卜棍•に、演算でもデータ型を意淼しないと f •想外の結果になることがあ 
ります。 X - BASIC で扱う数は、データ型が指^されていないとすべて祭数 （ im 型）と見なされ 
ますから、 
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?1/3 

の答えは0となります。これを次:数の演兗として扱うには、 ' 

? 1.0/3( または？ 1#/3) 

あるいは 

? 1/3.0( または？ 1/3#) 

のようにしなければなリません。 

• Y と mod 

t 嫌の除では、/のかわりに Y を使って*別リ切れなかった場介の答の小 ft 点以ドを W リ捨 
てろことができます。扱う数飢か 1数の niA は、演兑が次 ri •される前に小 ft 点以下が切り捨て 
られます。また、余リを求めたいときには mod を使います。この場 ft も、扱う数 flft か 1 ft の場 
介は、 mm が义行される刖に小数点以ドが切リ拚てられます。 ！ 

例） print 10 V 3 | 

3 (10/3=3 …… 1) | 

print 10 V 2.5 
5 (10/2=5 ……0 ) 

print 13.3 mod 4 
1 (13/4=3. 1 ) 

• 0での 除算 

数 W (を0で•別ったときには、 ” () による除5?•が i j ••われました”というエラーメッセ ー ジが衣ガく 
され、プログラムを中断します。0に対して ft のべき乘を行った場ぐ様です。 

• オーバーフロー （桁あふれ） 

代人や浈兑の紡：が、その変敉の切の中で招 W できる砲相を越えた場介、桁あふれがおこり 
ます。この場合、"オー八ーフローしました”というエラーメッセージが表示さルプログラム 

を中断します。 

• shr と shl (シフ ト演算） 

形! fi の兑術では使われませんが、2進数を扱うコンピュータの世界では多 in されます。 微 
狼を2進形式のビット列とち•え、そのビット列をある H 数右や左に移觔（シフト）させることを 
シフト痛•算といいます。 

例）？ 6 shr 2 

| 1 (&b000001 10^&b00000001) 

I ? 3 shl 3 

(&b00000011—&b00011000) 


24 
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シフト後の桁には、0が人リます。 


3.4.2 関係演算 

I 知係演访子は、2つの数飢または2つの 文，} •:列を比<較するとき に⑴ぃ ます。関係演 W の結災は 、 rt 
(―1)、偽 （0) で返さ才 U け命令などでフログラムの流れを芡えるのに⑴いられます。以下に、|对係 
演贫子の总味と例をあげます。 


閧係演算子 

内容 

例 

= 

左辺と右辺か1い、 

x = y 

<> 

A : 辺と右辺か，しくなぃ 

xOy 

< 

イ f 辺よリノ r : 辺が小さぃ 

x<y 

> 

右辺よリノ r : 辺が大きぃ 

x>y 

< = 

右辺より左辺が小さ t 、かまたは等しぃ 

x < = y 

> = 

右辺よりメ r : 辺が人•き t 、かまたは等しぃ 

x > = v 


例 ） it x =0 then print ” A " 

(もし x が 0 だったら、 ” A " を表示) 

if a + b <>0 then x = a+b 

(もし a + b が 0 でなかったら、 x に a + b のを代人せよ） 

詳しくは、第4饫を参照してください。 

3.4.3 論理演算 

論押は玫数の条ずす•を凋べたリ、ビット拽作やブール•をけったりするのに⑴います。論押 
痛访の結; li は、ビツトごとに0または1で返されます。 ft 論理; iiiP ： の内我を以ドに示します。 


not (否定) 
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〇「(»3和) 



if 命令では、これらの論理沉讶（•を使って、枚数の条件を判断することができます。 

例 ） if x < 0 or 99く x then x = 0 

( x が負の数または 99 より大きければ、 x に0を代入する） 
if 0 <x and x < 100 then x = 0 

( x が正の数でしかも100より小さければ、 X に0を代入する) 
if not ( a = 0 ) then x = 0 

( a が 0 でなければ、 x に 0 を代入する） 

詳しくは、第4が•を参照してください。 


-用播の脱明- 

♦ビット 

コンピュータの扱うデータの W 小単位〇1ビットで0か1かの2つの状態を衣します。 

•ビット操作 

ビットの並びの中の任怠のビットを ON/OFF する （ 1 にしたり 0 にしたりする〉ような操 
作をいいます。 

♦ブール演算 

イギリスの 数，* i •'卞ブールか xi えた論理消京。把!6の演穿が数侦を扱うのに对して、 rt . 力你か 
を扱う; W 第です。 BASIC では、 W •は 0 以外、偽は 0 という値をります。 


3.4.4 関数演算 

関数とは、基本的には指定されたデータに対して、ある決まった处理を行うもので、その处坪の姑 
果を返すものです。 

X - BASIC の I 对数:こは、 sin や sqr などの mft を扱うものや、 chrS や leftS などの文卞列を扱うも 
のなどがあリます。また、敁初から定義されたものではなく、ブログラマが fl 由に閲数を定義するた 
めの命令 （ func 〜 endfunc ) も持っています 0 
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これらの関数については、第4章で詳しく説明します。 

-参考--- 


X - BASIC の命令は、大きく 3つに分けることができます。 

•コマンド lisu new などがその代;表で、主にプログラムを寄いたり編災したリするた 

めの命令です。ダイレクトモードでのみ使用する命令です。 

•ステートメント print 、 if などがその代表で、主にプログラム中で核となる命令です。 

•関数 sin > cos などがその典切で、与えられたデータに対して、何らかの処理を行 

いその結果を返すものです。 

なお、開数名と引数をく くる左 M 弧との問はあけないでくださぃ。 


3.4.5 文字列演算 

• 文字列の連結 

文字列は、演第子+を使ってつなげることができます。たとえば、 

10 str a = "ハルガ ": Str b = ，•キタ ": str c 

20 c = a+b 
30 print c 
40 end 

このフログラムを’又:彳 i •すると、 _ lfti には 「ハルガキタ」 と及•されます。 

• 文字列の1：匕較 

文字列も、数値の比較に使われるものと全く同じ関係演算子 （= 、く、〉、く〉、<=、> = )を 用 いて比 
較することができます。 

文？:列の堝それぞれの文？:列の; t ⑽から1文？:ずっ文？:を上嫩します。闽名.が全く | ii ] じ文，沖 J 
の■は 、その2っの文字列は等しくなりますが、1文字でも違った場介は、その文字のキャラクタ 
コード（资?呢「キャラクタコード衣」参照）の人きいんの文字列が人きいと判断されます。また、文 
’ 列の一"が紐くて比較が途中で終わった場介は、短い文字列の;;.が小さいと判断されます。 

なお、文？:列の比較においては、空なども意味を侍ちますから注意してください。 


例)" AB " 

< 

” BC " 

" BC ” 

> 

” AAA ” 

" CAT " 

< 

” CATS ” 

" PEN ” 

> 

” PEN 

” cm " 

> 

" CM ” 

" BASIC ” 


” BASIC ， 


义卞列を i 匕較することによって、 文，？: 列の内容を凋べたり、文字を アルファべッ ト順に並べかえた 
りするのに利用できます 0 
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3.4.6 演算の優先順位 

滴劈•は次の順位によって行われます, 


1) カッコで M まれたもの 

2) 関数 

3) マイナス符^(一〉 

4) *、/ 

5) ¥ 

6) mod 

7) +、一 


8) shr、shl 

9) 関係演算子 （= 、く、〉など> 

10) not 

11) and 

12) or 

13) xor 
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I 書式 I 


命令や関数の杏き方です。 

< >で囲まれた項目は、必要とされる引数やデータです。 

〔〕で囲まれた J 頁 B は、宵略可能です。 

• ••は、 M 脱に繰り返し、引数やデータを与えることを表わします。 

これ以外の文字(予約譜、 { }、 [] などの記け類）はそのまま入力しなければなりま 

せん。 

コマンドやステートメントなどは、哚則として命令名とデータの間には、空白を入れ 
てください。また、閱数名と引数をくくる左す敌&の間には、空白を入れないでくださ 

い0 

1 綱％ I 朽略できる命令や閱数の并き方です。なお、引 tt 、 M 弧などは«略でさません。 

引数 1 閲数が原則としてどういう5?の引数を必要とするかを表わしています。 

数値?/!として int 、 char 、 float 、 文字型として str の4つのデータ塑がありますが、枚 
数の W : 類のリ I 数を取る関数については、それぞれのデータ型に応じて W •弧でく くって 
まとめてあります。数侦”であれば何でもよい場作は数値裂と表記しています。また、 
リ I 数が^に変数名や fid 列名 （ fid 列の場合は次元も明纪しています）でなければならな 
い場合(定数、式などが引数とならない〉は、そのように明記しています。 

則ザ g I すべての関数について、その戻り fift の®が邦いてあります。 int 、 char 、 float 、 str 、 

および总味を侍たない足リ M (炭リ侦が存在しない場介も含む）として void 、 の5つの 
型がぁります 0 

ぼ能 I 命令や [») 数の機能および、* j |数の怠味などを说明しています。 

-♦ 関迚した命令や、文法など参考■になるものを学げてあります。 

用例| 簡中•なサンプルプログラムや HJ 例です。 
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ABS 


標準関数 



F 0 
F i o 
F a 2 
H $ $ 

& 2 ) 

• 1 f 
5 5 a 
3 / ( 

5 ) n 5 ) 

5 i i 3 i 

6 b s 5 d 
t 1 拿 { 5 • 

5 1)s 6 i 
5 5 { b 拿 c 
2 i a ) t 
•1 • op- ( u 
d 1 1 t t 5 d b 
e I • 15 2 5 n( 

1 i 1 5 o ( 2 r t 
PC t • 0 -• • ニニ lJe 
n 3 5 t i f i i s 
a i t 5 ba c dp 
s uu 1 ) 21 t 

fa 1 » -- r X 
si n ( o i 0 0 
batee(af n 
a a e ge 


0 r a n r 
丨 cp i 0 


s V 


X d 

e n 
n 0 


000000000000000 
12 3 456789012345 
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第 4 章リファレンス 


APAGE 


GRAPH 



apa ^ e ( pa ) 

char 

void 

グラフ ィッ ク ㈣ 而のアク ティ フページ pa (グラフ ィッ ク1*)曲で実際に読み書きするぺ 
ージ）をします0ページ浓けは〇〜3で、ム i •人 W (はグラフ ィ ック_而の决_面サイ 
ズ及び色モードによります。 


グラフ ィッ ク I 由 Hfii の， 大: ㈣ ifd サイズ及び色モードによるアク ティ ブページ pa の 侦の範 

l，H 

1024 x 1024 U 6 色モード}……0 

512 X 512(16 色モード) . 〇〜3 

512 X 512(256 色モード) . 0、1 

512 X 512(65536 色モード)……0 



home 、 screen , vpage、window 


用例 


10 /* apage sample 
20 int ai 9 bi 9 ci 
30 screen 1 9 1 9 1 f 1 
40 vpa«e(&Bl111) 

50 for ai:0 to 8 
60 ft active pa^e( 0 ) 

70 apa^e( 0 ) 

80 bi=rnd()*15 

90 fill(50 f 50 t 200 t 200 f bi) 

100 symbol (210 ， 50• ” アクテイフ - へ •• シ • 0"• 1 • 1 • 1 •bi ， 0 } 

110 pause() 

120 /* active page(1) 

I 30 apageU J 

140 bi:rnd()*15 

150 fi11( 100, 100 f 250 f 250 f bi) 

160 symbol( 260. 100 • •• ァ，ティフ-へ•-シ •1" ， 1 ， 1•l• bi • 

170 pause() 

180 ft active page(2) 

190 apage(2) 

200 bi = rnd() 拿 15 

210 fill(150, 150,300. 300,biJ 

ミミ 0 symbol(310, 150,.• ァクティフ • へ • - シ • 2 ,1,1,1 • bi ，0 > 

230 pause () 

240 /* active page(3) 

250 apage(3 ) 

260 bi:rnd() 拿 15 

270 fil1( 200,200,350, 350 f bi) 

280 symbol( 360•200• ” ァクテ < フ . へ •- シ • 3” ， 1•1,1,bi,0) 

290 pause() 

300 next 
310 end 


320 func pause() 

330 for ci=0 to1 000 
340 next 
350 endfunc 
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ASC 


標準関数 


害式 

引数 
戻り値 
機能 


用例 


ATAN 


害式 

引数 
戻り値 
機 ni 

m~m 


asc ( st ) 


str 



文字列 st の: ts ぬ文卞のキャラクタコードを返します。 

st が nuir 文字の場合は0を返します。文字とキャラクタコードの対応については、「キ 
ャラクタコード衣」を参照してください。 

chrS , 「キャラクタコード衣 j 

10 / • asc sample 
20 st r as,bs 
30 as= M a M 
4 0 bs = ## abcd ## 

50 print usc< axyz #， ) 

60 print asc(as) 

70 print asc(bs) 

80 print asc(as)<asc(bs) 

90 end 


標準関数 


atan ( n ) 


float 


float 

JMftn の逆上接（アークタンジェント}を返します〇 — ; r /2 から tt /2 までの侦を返します0 


10 /* atan samp 
20 int ai , bi , ci 
30 float af 
40 screen 1,3,1 
50 vpage(1) 

60 1ine(0, 255,5 
70 for ai=1 to 


e 

di 


f 255, 65535 f &HFFFF) 


80 

for bi=0 to 

511 

90 

af:bi-255 

100 

ci = 255-i 

itan(af 

110 

di =rnd( : 

1 拿 65535 

120 

pset(bi 

r ci,di) 

130 

next 


140 

next 


150 

end 
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第 4 章 リファレンス 


ATOF 


標準関数 





戻り値 


機能 


atof ( st ) 

str 

float 

文卞列 st を floats の数値に変換します。 st は、 float 型の数値に変換できる文字 
(十、一、〇〜9、 •、匕の連絞です。もし float 型の数値として判定できない文字 
があると、そこで変換するのをやめます。 

st の光頭の空 fj 文字やタブ文字は無祝されます。また、小数点の前後には少なくとも！ 
つ以 h の数が必要です。さらに、指数表祝では、 e あるいは E の後ろに少なくとも1つ 
以 I ••の数字が必要です。 
st が null 文}•:の祕合は、エラーとなります。 


隻 ; 換できる文字列 st の？ F 式は次の通りです。 

〔 whitespace 〕〔 sign 〕( digits )〔. digits 〕〔 e 〔または E 〕〔 sign 〕 digits ) 


whitespace . 空 f T 文字またはタブ文字で無 |)i されます。 

sign . ”” または 

di ^ts . 1つ WJ •.の10進数で、小数点の前に何もなければ、小数点 


の後ろに少なくとも1つの数字が必要です。 
指数は、”または” E ” と符号をともなった1〇進数で情成されます。 

， ecvt 、 icvt、gcvt 


用例 10 /* atof sample 

- 1 20 float af f bf t cf 

30 str as t bs t C8|50) 

40 ass ,f 3000000000000 - 
50 bs = M -2.51235e-2 #i 

60 cs= M 0.510212354213154351231231345354354 35 13213 ff 
70 af = atof(as) 

80 bfratof(bs) 

90 rf:atof(cs} 

100 print af*2.5E+030# 

110 print bs+”+".cs+"= M ;bf.cf 
120 print bs + •• 拿 ••♦cs + ” = ••: bf 拿 cf 
130 end 
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ATOI 


標準関数 





atoi ( st ) 


str 

int 

文字列 st を int 5? の数値に変換します。 st は、 int 5 l の数 fift に変換できる文字（〇 
〜9、+、一 >の連絞です。もし int 型の数値として判定できない文字があると、そこで変 

換するのをやめます。 

st の先如の空文字やタブ文字は無ネ絶されます。また、 st には少なくとも1つ以1•.の数 
字が必要です。 

st が null 文字の場作は、エラーとなります。 


変換できる文字列 st の? F 式は次のとおりです。 
Lwhitespace 〕 Lsign ) digits 


whitespace . 空文字またはタブ文字で無祝されます。 

sign . ” + • または •一” 

digits . 1つ以上の10進数 


用例 


10 /* atoi sample 



40 as= M 300000 
50 bs= M -512 M 


60 ai=atoi(as) 

70 bi : atoi(bs > 

80 print as++bs ♦•• い ； a i. bi 
90 print as + " * < .bs + •• J :; ai 拿 bi 
1 00 end 


73 





第 4 章リファレンス 


AUTO 


I 窨式 
省略形 
機能 


コマンド 



auto 〔く行番号〉〕〔，く増分〉〕 


フログラムけの細に行番号を自動的:こ発生させます。 

< H ; ◊もく增分〉も V ?略できますが、この場合は自動的に1〇が採用されます。たとえ 
ば、 


auto け番サは10を: t 姐に20、30…と付けられます （ au to 10,10と同 

じ)。 

auto 100 け浪り•は100を光⑽に 110 、120 ••.と付けられます。 

auto ，5彳は10を先頭に15、20.••と付けられます。 

ブログラム中にすでにむ:在するけと⑹じ彳 W づ•が発卞した場合には、その行の内容が 
すべて衣小されます。このとき、 W も人力しないでリターンキーを押せば、その行の 
内祥は変わりません。 

aut ( > f « 能を科除するときは、 [ BREAK ; キー（または [ UfkL ] + QcTl キー）を柙しま 
す。_したときのブログラム行はメモリに保存されません。 
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出力で焭生します！ 

9KHz —— 0 f， 

2KHz —— 1" 

8KHz —— 2 M 
4KHz ——3.. 

6KHz ——4.. 

入力してくださ い（ 0 - — 4) ”；ac 


beep 

peat 


un t 


print 
print 
print 
print 
input 
l ac< 5 


a_play ( 
end 


/1 a play sample 



char ac 

dim char aca(1023) 

/拿 read BEEP-SYS file 
a i = f open ( M a : VSYSYBEEF. SYS f ”rw" ) 
f read(aca f 1024 f a i ) 
fc1ose(ai ) 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 


a 一 play ( na ， sf,mdU IngJ ) 

数値切一次 / t 配列 X ( na ), char ( sf . md . lng ) 
void 

衍定された配列 na の PCM データを冉十:します。 

na …… PCM データを格納している数侦切一次ゾ Cfti ! 列名 
sf ……サンプリング周波数 
0…… 3.9 KHz 
1…… 5.2 KHz 
2…… 7.8 KHz 
3…… 10.4 KHZ 
4 .15.6 KHz 

浮声を博^:する場合、 I 京則として a reel 对数で録音したときのサンプリング周 
波数 sf を使川してください。それ以外を使) H すると、結 S •した fV •声を iK ? K に印 I •: 

できません。 

md ……音声出カモード(本檐後曲のオーディォ出力端 f •からの音卢信号出力 
モード） 

0……出カヵット 
1……左出力 
2……右出力 
3……ステレオ出力 

lng ……职卜:する配列 na の添字0からの垃さ 

lng のとりうる値は、0から、配列名 na でされた配列の添字+1までです 0 
lng を朽略すると、すべての PCM データを m ： . します。 


窨式 

_引数 
戻り値1 
機能 


用_例_ 


す 3 5 7 0 5 を 

レ ft 数教数数数 

テ波波波波波波 
ス周周周周周周 

をググググググ 

音ンンンンンン 


e ブブブブブブ ) 

e ンンンンンン ,3 

b ササササササ ac 
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第 4 章リファレンス 


9KHz)---> 約 33 秒間 "：break 
2KHz)---> 約 25 秒 間"： break 
8KHz 卜--〉 約 16 秒 （ tf)" : b re ak 
4KHz)--0 約 12 秒 間 .. ：break 
6KHz)---> 約 8 杪閒 ” 


rec samp 1 


char ac 
st.r as 

dim char aca( 65535 ) 
screen 2 f O f 1 t 0 
/* record 
repeat 

print tt 音するためのサンブリング阌波鈐 •• 

；： ^L 0 ^- 9K H^ 1= 5.2KHz.2 = 7.8KHz, 3=10.4KHz,4 = 15.6KHZ,** 

lnpUt ** 音するためのサンブリング均波 » を入力してくたさい \ 0 
until ac く 5 


-今)- 


つ向波鈐によつて次のような « 音時閻にな〇ます ” 


50 
60 
70 
80 
90 
200 


pr 


nt "この例ではサンプリ 
tch ac 


case 

case 

case 

case 

case 


0 

1 

2 

3 


pr 

pr 

pr 

pr 

pr 


nt 
nt 
n t 


210 endswitch 
220 while as <) 

230 Print ••好音しますので， y ， キ 

240 as=inkey$ 

250 endwhile 

260 Print ” 鉍音中です •• 


280 

290 

300 

たさし 

310 


^rec(aca f ac t 65536) 


pr 

pr 


く test.dat > というファイルに緑音デ 
(すてにあるく test.dat >というファ 


夕をセーブします •• 

ルは消去されますので注 * 


て 


セーブしてもよい場合は， y ， キ-を押してくださ 


A.REC 


AUDIO 


式 


数 


戻り値 


機能 


a—rec(na,sfu lng〕> 

数値型一次元 fid 列名 （na> .char (sf.lng) 
void 

衍定された rtd 列 na に PCM データを鉍音します。 

na …… PCM データを格納する数値切一次元配列名 
sf ……サンプリング周波数 

0 .3.9KHz(l 秒間に消膂するメモリサイズ 195(V、 # イト) 

1 .5.2KHz(l 秒間に消費するメモリサイズ 260(W イト） 

2 .7.8KHz( 1秒間に消贄するメモリサイ X3900 バイト） 

3 . 1〇. 4KHz( 1秒間に消 ff するメモリサイズ5200バイト） 

4 .15.6KHz( 1秒間に消#するメモリサイズ7800イト) 

Ing. 鉍浮する配列 na の添字0からの技さ 

lng のとリうる値は、〇から、配列名 na で宣言された配列の添字+1までです< 
lng を«略すると、すべての PCM データを鉍泞します《 


用例 


数数败数数 

彼波*波* 
周周周周阓 

グググググ 
ンンンンン 


さ 

だ 


プブブブブ 
ンンンンン 

サササササ 


て 

し 

押 

を 


000000000 
123456 7 89 


0 〇 
0 1 
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430 untll ao< 
440 /* 

450 print ••こ 

当する « 《バイ I 
J60 repeat 
470 input 

4ftO until ai> 
1 \i 0 switch ac 


こでは 65536 をさきほどの綠音時閫とみなして、再生させたい時間に相 
« >を入力します” 

.•冉生するためのバイト教を人力してください （0 — - 65536 ) ai 
- 1 or ai <65537 

Otprint ••冉生するためのサンブリンケ阓液数とバイト数--- 3 - 9KHz 
1 : print ••再生するためのサンブリング阛波»とバイト数---パ；’’ 5 . 2 KHZ 
2 : print ••再生するためのサンプリング《波数とバイト数--- >••;•• 7 . 8 KHz 
3 : print ••冉生するためのサンアリング W 波 ft とバイト数 ---〉"；"10 • 4 KHz 
4 : print ••冉生するためのサンブリング阓液数とバイト ' 15 . 6 KHZ 


320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
4 20 


nkey$ 

is = %t y #， then 


a 1 = fopen( 'a : Vtest.dat 
fwrite(aca, 65536 f j 
fclose(ai) 


play 



再生するためのサンブリング阓波数_ 

(0=3.9KHz f 1=5-2KHz f 2=7 .8KHz t 3=10.4KHz t 4=15.bKHz) 

冉丰するためのサンプリング ffl 波数を入力してください— 


-4 ) —— 


BEEP 


ステートメント 


式 


beep 


機能 


ビープ&を喵らします。 print chrS ⑺と冏じ機能です< 


用例 


10 /* beep sample 
20 str as 
30 els 

40 while asO”b" 

50 locate 10 t 10 

60 print ”’b’ キ-を押すとビーブ音が発生します 

70 as=inkey$ 

80 endwhile 
90 beep 
00 end 


e 

s 

a 


e 

a 

a 

c 


e 

s 

a 

c 


e 

s 

a 

c 


e 

s 

a 

c 


k k k 
a a a 
e e e 
r r r 


k 

a 

e 

r 

b b b 


o •• o •• 0 •• o •• o 

o i 1 i 2 i 3 i 4 
5 ^6 a5 a5a5 


さ 

だ 


押 

を 


す 

ま 


で 

の 

す 

ま 

し 

生 

冉 y$ 


生 

冉 

で 

力1 ) 
出 ta 
才 3, 


ac: 


テ 


a 

ス C 


:••e 
> k 
< t n 

s n i e フ a 
a 1 s 1 M ( 
rsi y 
:ep a h t' a 
M I w n 1 
Hi d i Pd 
s h nr: n 
aw e pae 


00000000 
5 7 3 3 31 CM 3 
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第 4 章リファレンス 


BG_FI し L 


SPRITE 


窨式 




bg fill(pK.pd) 


char(pK).int (pd) 
int 

も 1 T / i ： されたテキストべ ージ PK を、指定されたハターンデータ pc j て哪めっくします 


PK . テキストページ（0、1 ) 

Pd ……ハ。 ターン データ （0 〜 & HCFFF ) 


パターンデータ pd は、次のようなビット構成になっています。（ビット 12 、 13 は通常〇 
になります。） 

ビット 1 5 . 珉 lft /义♦ム （0 :通常、1:廟 VJ 乂私） 

ビット14 . 水平反 ♦云 (0 :通常、1:水平反 ♦云) 

ビット8〜11•••ハ。レットブロック pb ( 1〜 15) 

ビット〇〜7 …ハ ターンコード C d (0 〜255) 

晚 W 乂♦云を衍定すると、次:際に: di 在されたハターンが1••卜7乂♦云して衣,】•くされます。ま 
た水、版ミを指定すると、次:際に定義された八ターンかソ广:イ f / 乂私して衣ホされます。 
パレットブロック pb は矜バターンに対して衍定するパレットで、详細については sp 
colorWl 数を参照してください。 

テキストページ1しか使 III しない場介のパターンコード c d は 16 x 16 ドットパターン 

の場介、〇から191までの攸をとることができます。チキストページ〇、1とも使パ j す 

る場介のパターンコード cd は 16 x 16 ドットパターンの場介0から127までの値をとる 

ことができます。テキストページ〇、1とも使^しない（バックグラウンドを使⑴し 

ない)堝介のパターンコード cd は 16 X 16 ドットパターンの場介、0から255までの値を 
とることか'できます。 
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BG_GET 


SPRITE 


害式 




bg Ket(pK.x.y) 

char 

int 

衍定されたテキストページ pk の衍定された H (挖からパターンデータを " •たみ出します。 


……テキストページ（0、1> 

x.X _(0 〜 63) 

y.Y 賴 （0 〜63> 


説み出されたバターンデータは、次のようなビット構成になっています。(ビット12、 
13 は通常 0 になります。） 

ビット 15 . 垂舰 fc(0 :通常、 1 :萌 I 飯幸云> 

ビット 14 . 水平，乂 fc(0 •• 通常、 1: 水平反転) 

ビット 8 〜 11 •••バレットフロック pb ( 1 〜 15> 

ビット〇〜7…パターンコード cd(0 〜255) 
ig 麵云 にな ってい る場合は、災燎に定義され た/、•ターンに 対して上ドが反幸云して衣 
示されていることを想^します。水平反 fc になっている坳合は、 次: 際に定義され たパ 
ターンに 対して左右が反 fe して表ボされていることを5妹します。 

パレットブロック pb は各バターンに対して荆リあてられているパレットで、1から15 
の W (を返します。•洋細については、 sp color! 对玫を参照してください。 

テキストページ 1 しか使⑴しない坳作のバターンコード cd は 16x16 ドットパターン 
の齡、 0 から 191 までの攸を返します。テキストページ〇、 1 とも使⑴する場介のパ 
ターンコード c d は 16X16 ドットパターンの場合、 0 から 127 までの値を返します。テキ 
ストページ0、1とも使 ff! しない（バックグラウンドを使 W しない）場介のバターン 
コード cd は 16X16 ドットパターンの場合 0 から 255 までの侦を返します。 



bg—put 
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第 4 章リファレンス 


BG_PUT 


SPRITE 



書式 




b^puUpK.x.y.pd) 

char ( pg , x ， y >, int ( pd ) 


指定されたテキストページ Pg の指定された座標に指定されたパターンデータ P d を設 
定します。 


PK . テキストページ（0、1 ) 

x . X ゆ:標 （0 〜 63) 

y . Y 冲:標（〇〜 63) 

Pd . パターンデータ （0 〜 & HCFFF ) 


パターンデータ pd は、次のようなビット播成になっています。（ビット12、13は通常0 
になります。） 

ビット15 . :通常、1:垂乂 fe ) 

ビット14 . 水平反 fe (0 ••通常、1:水平反紜） 

ビット8〜11…パレットブロック pb(l -15) 

ビツト〇〜7•••ハ。ターンコード C d <0 〜255) 

萌 iA ； 反紅を指定すると、次:際に定義されたパターンが上下反転して表示されます。ま 
た、水平反 fe を指定すると、実際に定義されたパターンが左右反転して衣示されます。 
ハ’レットブロック pb は各ハ。ターンに対して指定するハ。レットで、詳細については 、 sp 
_ color (均数を参照してください。 

テキストべージ1しか使用しない場合のパターンコード C d は 16 X 16 ドットパターン 
の場合、〇から191までの値をとることができます。テキストページ 0 、1とも使用す 
る場合のノ、。ターンコード cd は16 x 16ドットパターンの場合、0から127までの値をと 
ることができます。テキストページ〇、1とも使用しない（バックグラウンドを使用 
しない)場合のパターンコード cd は 16 X 16 ドットパターンの場合、0から255までの値 
をとることができます。 



bg_get 
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BG_SCRO し L 


SPRITE 




戻り値 


機能 


bg _ scroll ( b 〔， x 〕〔, y 〕) 

char ( b ), int ( x , y ) 


ハへ•ノク グラウンド M スクロール 座標を設定します。 


b . ノヽ•ック グラウンド（0、 1) 

x . スクロール X ；屯標 （0 〜511または 1023) 

y . スク ロール Y 啤標 （ 0 〜 511 または 1023) 

なお、於 j;l 由 Ufri サイズが 256X256 の場各は、 X 、 Y 座標は0から 511 までの値をとるこ 
とができます。表流由 Bi サイズが、 512X512 の場分は X 、 Yf ^: 標は、 0 から 1023 まで 
の侦をとることができます。ただし、衣示 I 由■サイズが 512x512 の場各はバックグラ 
ウンド1は表示されませんので注意してください 0 



bg stat 


BG_SET 


SPRITE 





bg — set ( b 〔, pg 〕〔, md 〕> 

char 

int 

バックグラウンド h のテキストべージ pg の別りあてと衣示の没定を行います。 


b . バックグラウンド（0、 1) 

pg ……テキストページ（0、1> 

md ……バックグラウンドの表示 （0= 表ボしない、1二表ボする） 

なお、衣示 I 由 1面サイズが 512 X 512 の場合のみ、八ックグラウンド1は衣ホされません 
ので注总してください0表/ j ;1 由価サイズが256 x 256の場公は、バックグラウンド0、 
1とも表斤くできます。 



bg stat 
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BG—STAT 


SPRITE 




bg stat ( b . md ) 
char 


衍定されたバックグラウンド m 状態を说み出します。 


b . /ぐ•ノクグラウンド（〇、1> 

md ……モード （0 〜 3) 


モード md には説み出す内答を指定します。 

0 = Xl^m (0 〜 511 または 1023> 

1 =丫賴 (0 〜 511 または 1023) 

2=テキストページ（0、1> 

3=バック グラウンドの衣ポ<〇=衣づ;•されていない、 1 =炎; j ; •されている） 
なお、ルバ1叫血サイズが 256 X 256 の場合は、 X 、 Y ゆ:標には 0 から 511 までの範 1 蛸の飢 
を返します。衣曲•サイズが 512 X 512 の堝合は、 X 、 Y 座標には〇から 1023 までの 
範 M の飢を返します0ただし、炎/ J ; 伸•福サイズが 512 x 512 の垛作は、 八ック グラウン 
ド1はされませんので注总してください。 

bg scroll、bg set 
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BINS 


標準関数 



binS ( i ) 


str 

整数値 i を 2 進表％の文字列に変換し返します。なお、上位の” 0” は取り除かれま 
す。 



hexS、oct $ 



10 / * bin$ sample 
20 int ai 9 bi 
30 ai=-255 
40 bi: 2100542300 
50 print hin$(ai) 

60 print bin$(bi) 

70 print. bin$(ai )+binS(bi ) 
80 end 
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第 4 章リファレンス 


_用_例_ 


10 

20 

30 

40 

50 

60 

70 

80 

90 

00 

10 

20 

30 

40 

50 

60 

70 

80 

90 

200 

210 

220 

230 

240 


/ t box sample 
int ai f bi,ci,di f ei 
screen 1,3,1,1 
vpage ⑴ 
for ai=0 to 100 

bi=rand() mod 

ci=rand() mod 

di=rand() mod 

eirrand() mod 

fi = rnd( )t 65535 

gi=65535 

box(bi f ci,di f e 

next 
wipe() 

for ai=0 to100 

bi=rand<) mod 
ci = rand( ) mod 
di=rand() mod 
ei - rand() mod 
fi=rnd( >*65535 
gi=rnd( ) *65535 


box(bi 


tdi t 


next 

end 


BOX 


GRAPH 


害式 1 box ( xl . yl . x 2， y 2, p 〔. Is 〕） 
引数 ] int 


戻り 値 void 

機能 I グラフィック l 雨面上にボックス（四角形）を描きます。 

xl ……始点鹏標 
yl ……始点 Y 座標 
x 2 ……終点)0屯榡 
y 2 ……終点 Y 冲:標 

P . ノ、レツ ト コード (色) 

Is . ラインスタイル 

xl 、 yl 、 x 2、 y 2 は、 一 32768から32767までの値をとることができます。クリッピング 
エリアについては window ^ 数で衍定された範になります。また、 パレ ッ トコード t 
は0から65535までの W (をとることができ、その W 人侦は、グラフ ィ ック I 由価の灾_!^ 
サイズ及び色モードによリます。 

ラインスタイル Is は〇〜65535の侦をとり、これを16ビットのビットパターンと兄な 
し、次:線 (& H FFFF ) や点線 (& H A A A A ) などを指定することができます A 



84 












BREAK 


ステートメント 



break 

最も内側の for 、 repeat 、 switch 、 while 文から抜け出します。 



10 /* break sample 
20int ai 
30 ai =1 


40 switch ai 

50 case 0 : print "D ••: break 

60 case 1 : print ”1 ••: break 

70 case 2 ： print f# 2 M : break 

80 default : print 

90 endswitch 
100 for ai:0 to10 

110 if ai = 5 then print # ， 5 ,# ： break 


120 



130 next 
140 while ai< >0 

150 if ai-2 then print M 2 *：break 

160 ai=ai-1 

170 print ai 


180 endwhi1e 

190 print ”compiete! 

200 end 


CHAR 


ステートメント 



char ぐ变数名〉〔二ぐ走数 A >〕 〔,•••〕 

変数を核数 ( char は!として n 宮します。 M 時に fift を代人することもできます。 

1¢則として、変数 Vi ； 言はメインブログラムの光姐で行ってください。また、 M じ名前 
の変数をメインプログラム中で4^宣言することはできません。 



float 、 mt、str 


用例 


10 /* char sample 
20 char ac=41 
30 char bc = f A 1 
40 char cc = 68 t dc= f b 
50 print ac 
60 print be 
70 print cc,dc 
80 end 
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CHDIR 


コマンド 


齊式] chclir ”〈ディレクトリ名〉’’ 

機能"! ディレクトリを変史します 0 くディレクトリ名〉の詳細については、 「 Human 68 k ユー 

ザーズマニュアル J を参照してください0 

用例 I chdir -arVhin- 


CHDRV _ コマンド 

害式 1 chdrv •，〈ドライブ名〉” 

ほ能 I カレントドライブを芡セします。くドライブ名〉の詳細については、 「 Human 68 k ュー 

ザーズ マニュアル」 を参照してください。 

_ 用 _ 例 chdrv **b ： *• 
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CHILD 


コマンド 


軎 

式 


「機 

能 


!<Human68k のコマンド〉 

チャイルドフ° ロセスを$彳/•します0 

たとえば、” command. X” をチャイルドブロセスで次: U するためには、 M じディレク 
トリに " command, x” というファイルがあリ、さらに "command, x" をロードす 
るだけのエリアが、フリーエリアとは別にメモリI••になければなりません。 

なぉ、ここで使川できる Human68k のコマンドについての雜細は、 「Human68k ユー 
ザーズマニュアル J を参照してください0 


用例 I *.* 

! ed test.dat 
1 format h : 


CHR$ 


標準関数 



chrS (ch) 


char 


| 戻り値 | str 

キャラクタコード ch の文•ドを返します。 ch= 0のときは null 文字を返します0 
ch は〇〜255の細相でなければなりません0また、その文？••がコントロールキャラクタ 
として定義されていると、佐本的には文字は及ボされず、そのコントロールコードの 
侍つ機能が次:行されます。ただし中には次:けされないものもあります。文字とキャラ 
クタコードの衬応 について は、「キャラクタコード衣 j を参照してください。 




asc、 「キャラクタコード衣 j 


用例 


10 / * chr$ sample 
20 char ac f be 
30 ac=&H41 
40 bc=&H31 
50 print chr$(13) 

60 print chr$(ac) 

70 print, chr$ ( be ) 

80 print chr$(ac)+chr$(bc 
90 end 
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CIRCLE 


GRAPH 



x.m の中心の) ok 標 

y . Iリの中心の Y 座標 

r.m の t 後 

p. ノ、 0 レツトコード(色) 

s.WJ 始角度(度) 

e. 終び!度(度） 

hv . 偏平率 

x、y は、 一 32768から32767までの値をとり、字後 r は0から32767までの値をとること 
ができます。クリツビングエリアについては windows 数で指定された範囲になりま 
す。また、パレツトコード p は0から65535までの侦をとることができ、その姑人値は 
グラフィツク1由 itfri の次:I由 iifti サイズおよび色モードによリます。 

IW 始卽度^終了只!度 e は通常0°から360°の値をとります。一1•から一 36(T の f 直を使用 
すると M 切を描くことができます。 
f+hv は0〜65535までの fift をとることができます。 
hv<256 なら横 K 憤:|リ 

hv=256 なら縦横比1の！ XliK ただし 768X512 以外の衣示I由•諭•サイズでは如り 

となりません） 

hv>256 なら縦 K 格1リ 

用 jjij 10 /拿 circle sample 

20 int ai f bi f ci f di f ei f fi f ^i 
30 screen 2 9 0,1 9 1 
40 vpage(1) 

50 for ai=0 to100 
60 bi=rand() mod 768 

70 ci=rand() rood 512 

80 di=rand() mod 200 

90 ei=ai mod 16 

100 circle(bi f ci f di f ei f O f 36 0,256) 

110 next 
120 wipe() 

130 screen 1 f 3 9 1 9 1 

140 for ai=0 to 500 

150 bir500-ai 

160 ci=hsv(ai mod 192,31,31) 

170 circle(256,256,100 f ci,0,360,bi) 

180 next 
190 wipe() 
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next 

for bi=0 to1 0000 

next 

els 


for a 
next 
w i pe ( 
end 


10000 


200 locate 32 f 15：print •• 弧 •• 

210 locate 32,30 ： print •• B •• 

220 for ai=0 to17 

230 birai 拿 5 

240 ci=90-bi ： di=-90+bi 

250 ei=90+bi : fir-90-bi 

260 gi=hsv(ai mod 192,31 ， 31) 

270 circle(256,200 f 150 f gi f ci f 

280 circle(256 f 439 f 150 f gi f di f 

290 next 

300 end 


i f 400) 
1,400) 


CLEAR 



窬式 


clear 


省略形 


m 能"！ 変数とスタックを初期化します。プログラム中では使えません< 


free 


C し S 


ステートメ 



000000000 
123456789 
T* 11 13 u 1A 11 J It 1 
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第 4 華 リファレンス 


/ $ color sample 
i nt ai 

for ai=0 to15 

color ai : print .personal workstation X680O0 

next 
color 3 
end 


CO し OR 


ステートメ 


窨式 color 伽性〉 
省略形] col . 


「機能1 テキスト I 由 ufti の文字の;成性を設定します。 

文字の/成性には、4つのパレットと、強凋、リバースがあリ、〇〜15の値を使用する 

ことて•設定できます0デフオルトとしては次のような祕性がそれぞれ〇から15に対応 
します。 


0 ノーマル 

1 ノーマル 

2 ノーマル 


シアン 


シアン 


ノーマル 放色 10 

ノーマル ri it 

ノーマル強湖 m 12 

ノーマル強,狗シアン13 
ノーマル強•潤坑色 14 

ノーマル強凋！^ 15 


10リバース 


11リ八ース 


ベース 拔色 

くース U 

《ース強调出 
<ース強凋シアン 
《ース強凋 «• 色 
《ース強凋 fl 


文？の祕性の0と4と8と12は、ハ•レット ( p 0> に対応します。また、文字の I 成性の1 
と5と9と13は、パレット < pl > に対応し、2と6と10と14は、パレット （ p 2> に対応 
し、3と7と11と15は、パレット （ p 3> に纣 It ; します。 

各ハ 。 レツトを変史するには 、 color [] 命令を使用してください。 
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CO し OR [] 


ステートメント 




color ^ c 0. cl . c 2. c 3. 


col . 

テキスト_面の各パレットにカラーコードを别リあてます。 

cO . W 性〇、4、8、12のパレット （ p 0> に荆リあてるカラーコード 

cl . 属性1、5、9、13のパレット （ piH ご別リあてる カラー コード 

C 2 . 1 成 性2、6、10、14のパレット （ p 2> に別りあてる カラー コード 

c 3 . W 性3、7、11、15 のノぐレット （ p 3> に 別リあてる カラーコード 

カラーコードは〇〜65535の値を使…できます。战性については colors 令を参照して 
ください。 


用例 


10 /* color 11 sample 
20 int ai f bi f ci f di,ei,i l 
30 cla 

40 for ai=0 to15 

50 color ai 

60 print M personal workstation X68000 こ： 

70 print "personal workstation X68000 

80 next 

90 color 3 ^ .. 

100 print ••途中で BREAK したときは、 ’ run 210- ’ を人力したあと 

て実行してください §# 

110 for ai =0 to 31 

120 for bi = 0 to 31 

1 30 for ci:0 to191 

140 di:hsv(ci.bi ， ai>+l 

150 ei = hsv(ci f 31-bi f 31-ai) + l 

160 fi=hsv(ci,bi f 31-ai)+1 

170 color (di f ei f fi #65535 1 

180 next. 

190 next 

200 next- 

210 /t color default value 

220 color [ 0 ,rgb(0,31,31)+1,rgb(31,31,0)+1 ,655351 
230 color 3 
240 end 


リターンキーを押 
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CONSOLE 


ステー トメント 



式 


省略形 


機能 


console 〔くスクロール開始行〉〕，〔〈スクロ ー ル行数〉〕，くファンク シヨ ン キー 表示> 


cons . 

〈スクロール開始行 >で指定した行からくスクロール行数〉分をテキスト圃面のスクロ 
ールエリアとします。 

衣ポ调曲•サイズが 256 x 256以外のテキスト I 由刷のム i ド行は、ファンクションキーの表 
示ェリアになります。くスクロール開始行〉のとりうる範囲は〇から31まで、くスクロー 
ル行数〉のとリうる範网は1から32までです 0 くスクロール間始行〉と〈スクロール行 
数〉とくファンクションキー衣ホ〉の姐をすべて加えた侦は敁人32までとなります。た 
だし、くスクロール間始で31を衍定したり、あるいはくスクロール行数〉で32を衍定 
した場介は、くファンクションキー衣示〉は〇に没定してください。 

衣ポ 1由 ilfu •サイズが 256 x 256 のテキスト I 由•福の叫作は、常時くファンクションキー表示〉 
は 0 に*^し、くスクロール開始行〉は0から15まで、くスクロール行数〉は1から16ま 
での範 I 相の侦をとることができます。くスクロール開始行〉と〈スクロール行数〉と〈フ 
ァンクションキー &> ji > の侦をすベて加えた侦はム i 人16までとなリます。 

なお、〈フアンクシヨンキー衣>六〉は〇ならファンクションキー表示 off 、 1 ならファ 
ンクシヨンキー衣ボ ON を 5 妹します。 


c ⑼ sole 命令を次:行すると、次:行後、力ーソルは衣ぬ由)曲の左上に移動し、また width 
命令を’太: ij ••すると 、 console 0 . 31 . 1 に洱設定されます。なお 、 console ，，〇はファ 
ンクシヨンキーのみ及ポ OFF とし 、 console ,, 1 はファンクシヨンキーのみ表が : ON 
にします。この坳介、スクロールエリアは変化しません。 


用例 



力 


10 /拿 console sample 

int ai f bi f ci 9 di t ei t fi 
30 screen 2 • 0,1 •1 
40 、 page ⑴ 
f>0locate 0,3 

60 print •• 表示 H * サイズは 768 d 2 ( 横 96 桁 * 耰 32 行）です ” 

70 while ai < > - 1 

80 input •• スクロール閣始行を 0 から 31 の範囲で入わしてください -- 

90 if hi <0 or bi >31 then print "bi の油を较定し商してくたさい " 

100 ln P ut •• スクロール行数を 1 から 32 の ® 囲で人力してください ---> C i 

110 1 f oi く 1 or ci >32 or bi +ci >32 then print "bi • ci の鴿を姣宙 L 【 

••: coni i nue 

1 巧 if bi+ci=32 then print " フアンクシヨンキーは表示できません••： di =0 : break 

130 while ei < >-l 

1 し 4 1 くだ 、 input •• ファンクシヨンキーを表示する場合は 1 を表示しない場合は 0 を入 


bi";bi 




;c 


ださ 


150 

160 

170 

180 

190 

200 

210 


ii di<0 or di>l then print ff di の M を設定し直して ください ••： continue 
ei =- 1 

endwhlie 
a i =-1 
endwhile 
pause () 

els 
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220 print #t console ; bi ; •• • •• ;ci ; •• • " ;di ••••を投定します 
230 console bi f ci,di 
240 pause() 

250 els 

260 for ai=0 to 500 

270 print M X68000 ; "X68000HD ; 

280 next 
290 pause() 

300 console 0 f 31•1 
310 els 
320 end 

330 func pause() 

340 for fi=0 to 10000 
350 next 
360 endfunc 


CONT 



省略形 



cont 

c . 

[ BRMk ] キー（または ICTRLl ,+1 c ! キー）人力、または stop 命令によって f ? •止し 
たプログラムのを 1 彳訓します。次: Uf ?. 止中に list 命令や print 命令などを^:行する 
ことはできますが、プログラムそのものの没!史を忖ったときは、 cont 命令による次:け 
の#只»1はできません。 



stop 
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CONTINUE 


ステートメント 



CONTRAST 


GRAPH 


害式 


引数 


戻り値 


機能 


用例 


COS 


I 害式 
nr 数1 
["戻り値 I 
「機能 I 


用例 


contras い ch ) 


char 

void 


知本のコントラストをします。 

ch . 0(文卞やグラフィック、スブライトのル•が兄えない卜15(文？:や 

グラフィック、スプライトの衣ボがよく兄える） 


10 /* contrast sample 
20 int al,bi,ci 
30 screen 1• 3 ,1,1 
40 vpage(1) 

50 symbol( 200,200 , #, SHARP t# • 2,2,2 , rub( 31 t 0 t 0) + l f 0) 

60 for ai:0 to15 
70 bi=15-ai 

80 contrast(bi ) 

90 for cizQ to 1000 

00 next 

1 0 next 

20 symbol( 100, 1 00 • "\68000 •• • 3 • 3 • 2 , rgb ( 0 • 0 • 31)♦! f 0) 


30 for ai=0 to15 
40 contrast(ai) 

50 for bi=0 to 1000 

60 next 

70 next 
80 end 


標準関数 


cos ( n ) 

float 

float 

ftfiftn (ラジアン > の,玄（コサイン）を返します。 


10 /拿 cos sample 
20 int ai,bl,ci•di 
30 float af 
40 screen 1 f 3 ,1 9 1 
50 vpage(1) 

60 1 ine(0 f 255,51 1 t 255 f 65535 f &HFFFF) 
70 for ai =1 to 3 
80 for bi = 0 to 511 

90 af: 《 2 拿 pi( )tbi "512 拿 ai 

100 ci=255-003(af > *200 

110 di=rnd{)*65535 

120 pset(bi f ci,di) 

130 next 

140 next 
150 end 
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第 4 章リファレンス 



害式 crt ( cd ) 

引数1 char 

戻り値 void 

_能 I テレビ•ビデオ I 由 afti とコンヒュータ I 由|向を切り換えます 


cd . 切り換えコード（〇〜 3 > 

コード cd の侦と意味は次のとおりです。 

0 =テレビ.ビデオ丨由 Tifu •の映像を表示 
1=コンピュータ I 由 j 向を表示 

2 =テレビ•ビデオ映像のコントラストを下げてスーパーインポ ー ズ表示 

3 =テレビ•ビデオ映像のコントラストを通常にしてスーハ。 ー インポ ー ズ表示 
划】則に screen 命令であらかじめ衣/ A 由•刷サイズを 256 x 256 または、 512 x 512 に、デ 
ィスプレイ解像度を l ow (標啤解像度）に没定します。カラーイメージ ユニッ トの テロ 
ッハ 機能を使つて、コンピュータ I 由|像やスーパーインポーズをビデオに站由)する 
場介、 crt (3) にあらかじめ設定してください。 

なお、この関数を龙行するにはカラーイメージ ュニッ トが必要です 
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/* date$ sample 
str as 9 bs 
as=date$ 
print as 
bs = as 
date$=bs 
print date$ 
end 


CSR し IN 


システム変数 


窨式 csrlin 
戻り値 int 

機 有 g | テキスト i 由|而の現在のカーソルの y 座標を 返します。代入することはできません。 

例 10 csrlin sample 

I— ^——20 print ”X68_ •• 

30 print ,# X68000 •• 

40 print csrlin 
50 end 


DATES 


システム変数 



00000000 

12345678 
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第 4 章リファレンス 


DAY$ 


システム変数 





dayS 


str 


祝在のを文字列として返します。代人することはできません。 

10 /拿 day$ sample 
20 str as 
30 as^day$ 

40 print as 
50 erui 


DELETE 


コマンド 



窨式 


省略形 


機能 


delete く行浓り*の_> 


del . 

I IT 4 i されたプログラム彳 f を削除します。 

U 浓リ•の衍定ノ / f 上によって、さまざまな形の削除が}/•えます。 


delete 10 iiS 冷10の行を削除します。 

delete — 100 プログラムの: t 頭から彳 fS 号100までの行を削除します。 
delete 200— ‘づ-200からプログラムの/後までの行を削除します。 

list 、 new、renum 
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DIM 


ステー トメント 


窨式| dim 〔<型宣言〉〕ぐ变数名〉（く添字の AV 人•値〉〔，〈添字の儉大値〉...〕）[〈文字八ッ 

ファのサイズ〉]〕〔= { く代入定数式データリスト〉}〕〔，く変数名 >..J 

f 能| 配列変数を使うことを宣言します。 

dim 文中で代入するデータは、 ={ } で N めば枚数けに分けて Hi ! 述できます。ただし、 

後数行にわけて圮述した場合は、そのブログラムを save ® 命令でセーブできても、 
load ® 命令で口ードできませんので; l 意してください。 

[<>] じデータ”の fid 列はカンマで|メ:切れば後に絞けて1 U に人力吋能な文卞数の础仴内 
で宣言できます。なぉ、く型宣言〉を宵略すると、 int 型の配列として扱われます 0 
設定できる添•ドの/!! h #: は〇、砧人肌はフリーエリアか; rr •すです。 

く文卞八ッファのサイズ〉は1〜255の範 M で没定でき、 str 切の配列の1要ぶのとりえ 
る文 IWl の iii •人の及さをします。«略した垛合は32文卞となります。 

原則として、配列変数の m はメインブログラムの先頭で行ってください。1ド》1じ名前 
の fid 列を W 宣言することはできません。 

用例 


10 / * dim sample 
20 int ai t bi 

30 dim int aia( 2)= i15 t -845 f 555555 55} 

40 dim int bia(1 f 1)=(465 f 5953, 

50 -536,222) 

60 dim char aca(2 » 2 f 2) 

70 dim float afa(5) 

80 dim str asa(1)=1 aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa . 

90 aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa") 

00 dim str bsa(1)(50]r{ f, bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb M f 
10 .asdsadafasd"J 

20 for ai=0 to 2 

30 print “aia( •• ;ai ; U" :aia( ai > 

4 0 next 

50 for ai=0 to1 
60 for bi=0 to1 

7 0 print 1 b i a ( ; a i ； ° f M ； b i ； # ) = M ； b i a ( a i f b i ) 

80 next 

90 next 


200 print ”asa( 0 } = ； asa( 0 ) 
210 print M bsa ( 0 ) = ,# ; bsa ( 0 ) 
220 end 
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DSKF 


標準関数 


| 書式 | dskf ( d ) 

引 数 char 

戻り 値 int 

^ ^1 す Siii されたドライブ d の空きディスク 容铋を 返します。エラーの 場合は 一1 を 返しま 

す0 


d . 0 カレントドライフ • 

1ドラィブ A 
2ドライブ B 


用例 


10 ハ dskf sample 
20 int ai 
30 ai=dskf(2) 

40 print ai 
50 end 
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ECVT 


標準関数 


害式 


引数 


戻り値 


機能 




用例 


ecvt ( f,il , i 2. i 3) 

float ( f ), int ( il ). int 切変数名 （ i 2, ⑶ 


r ? 勋小玫谢を文卞列に変換し、その文卞列を返します。文卞列として返されるのは数 
狼のみです。 

f . 文字列に変換した v 、湖小数値 

il . 文字列の桁数 

\2 . 小数点の位 S を返します。止:の場合は、小数点は i 2+ 1の位阑にあ 

ります。0または ft の堝介は、小数点は i 2 — 1の位; K にあります。 

i 3 . 符号を表わす値を返します。江:•の場合は〇、 a の場作は1になリま 

す0 


atof 、 fcvt、gcvt 


10 /t ecvt sample 
20 int ai,bi 
30 float af•bf,cf 
40 af=25000000000000# 

50 bf=- 2.654668 1E+205# 

60 cf=-5-2365426E-018# 

70 print str$(af) 

80 print ecvt(af,20,ai f bi) 
90 print str$(bf) 

100 print ecvt(bf,20,ai,bi) 
110 print 3tr$(cf) 

120 print ecvt < cf,20,ai f bi) 
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END 


ステートメント 



軎式 end 


機能 フログラムを終丫します。プログラム内にいくつ策いてもかまいません。ただし、敁 

切に火:行した end 命令よリあとの命令文は次:むされません。 


用例 


10 ハ end sample 
20 test ㈠ 
30 end 

40 func test( > 

50 print ,f X68000 
60 endfunc 


ERRNO 


システム変数 




戻り値 



errno 


error off のモードの坳ひのみ心•幼で、外部戊1数でエラーが允 , I •:しているかどうかを知 
リたいときに使います。 ft 人することはできません。としては次のような侦を 
します。 


〇 . エラーが発 I していないことを示します 

上の整数……外部関数 I ••でエラーが発ル:していることを示します 
ft の桉数……システム I •.でエラーが発卞していることを示します 
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ERROR ON/OFF 


害 

式 


機 

能 


error on または error off 


error on : こすると、外部 I 汨纹でエラーが允卞したときにエラーメッセージを衣ホし 
て次:行を伶 il •.するモードになります。 error off にすると外部関数でエラーが発 4 •:し 
てもエラーメッセージを衣/ ji せず、次のステートメントに次:行が進められます 0 run 命 
令次:後は error on のモードになっています。なお、 error off のモードが“効な 
ときは、プログラムで error off を次: U している l!il のみです。ブログラムが終 r し 
て、 " Ok " が表示されると error on のモードになります。 


用例 


I0 It error on/off sample 
20 int ai 
30 r Is 

40 print "error off モードにします •• 
50 error off 

60 line(O 9 0 f llllU 11001100 , 8888888 ) 
70 print M X680OO •• 

80 for ai=0 to 10000 
90 next 
100 els 

110 print "error on モードにします ’ 

120 error on 

130 line(0 f 0, 1111111100,100,8888888) 
140 print M X6800O •• 

150 end 


exito 


ステートメント 


害 

式 


機 



exit () 

叹 A オープンされているファイルをクロ —ズするなどの 4 i 坪をした後、親ブロセスに 
戾リます。 


用例 


10 / * exit() sample 
20 print tf X68000 
30 exit() 

40 end 
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EXP 


標準関数 



40 bf=-2.8# 

50 print exp(af) 


60 print exp(bf) 
7 0 end 


FC し OSE 


標準閲数 




用例 


fclose ( fp ) 


fopenW ) 数によつてオープンされたファイルをクローズします。クローズした場合、戻 
リ侦として0を返します。エラーの場作は一1を返します。 

fp . ファイル番号 


10 ハ fclose sample 
20 int ai ， bi 
30 str as 

401input "ファイル名を入力 
50 airfopen(as f tf c #f ) 

60 bi = fopen( as f ## r M ) 

70 print ” 指定ファ - 
80 fclose(ai) 

90 fclose(bi) 

100 end 


てください -—— 


ルがクローズされます 


; as 
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FC し OSEA しし 


標準関数 



fcloseall () 
int 

オーフ。ン中のすベてのファイルをクローズします。戾り値として、クローズしたファ 
イルの個数を返します。エラーの場合は 一 1を返します。 


用例 


10 /* fcloseal 1 ()sample 
20 int ai f bi,ci 
30 str as 

401input ••ファイル 名を入力してくださ い-—〉？”； as 
50 ai = fopen(as t M c #, ) 

60 bi = fopen(as , •>••) 

70 print ••指定 ファイルがクローズ されます 
80 ci=fcloseal 1 () 

90 print •• クローズされたファイルは •• ；ci ; ••個です" 

1 00 end 


FCVT 


標準関数 



害-式 



fcvt ( f , il . i 2. i 3) 

float ( f),int ( il ). int 型変数名 （ i 2, ⑶ 
str 

卿力小数 fiftf を文？ ••列に 変換し、その 文？ ••列を返します。 文卞 列と して 返されるのは数 
侦のみです。 


f . 文卞列に安!換したい•勒小数侦 

il . 文字列の小数点以下の桁数 

\2 . 小数点の位置を返します。正の場合は、小数点は i 2 +1の位置にあ 

リます。0または ft の場介は、小数点は i 2 — 1の位; K にあります。 

13 . 符号を表わす値を返します。 iH の場合は0、負の場合は1になりま 

す0 


■4 atof 、 ecvt、gcvt 


用例 


10 / * fcvt sample 
20 int ai f bi 
30 float af,bf,cf 
40 af=25000000000000# 

50 bf:-2.6546681E+205* 

60 cf=-5-2365426E-018# 

70 print str$(af) 

80 print fcvt(af,20 f ai,bi) 9 ai 9 bi 
90 print str$(bf) 

100 print fcvt(bf f 20 f ai f bi) f ai f bi 
110 print str$(cf} 

120 print fcvt(cf 9 20 ,ai 9 bi) 9 ai 9 bi 
130 end 
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FDE し ETE 


標準関数 


害式 fdelete ( fn ) 

引数1 str 

一戻り値 int 

〔機能 I ファイル fn さ 


ファイル f n を削除します。削除できた場ため m として0を返します。エラーの增 
作は 一 1を返します。 


ファイル名 


[用例 


10 fde]ete sample 
20 int ai 
30 st r as 
40 r 1 s 

50 ] in P ,Jt ••刖除したいファイル名を人力してく p A L X . 
5 prin 丄..ファィル,-、咖")ィを B , jVl * V *' て < ださぃ 
'0 a 1 = fdelete ( as ) 

o®then print ••ファイルの削除ができません 

90 P rint ファイルの刖除ができました ” 

100 end 


ださ 


-> / ▼ :as 


FEOF 


標準関数 



feof ( fp ) 


lilt 


衍： i されたファイルの終 f チェックを彳/います。ファイルが終わりなら 
ていなければ0を返します。エラーの場 {> も一1を况します。 


一 1 、 終わ 


ファイルより 


10 /* foof sample 
20 int ai 
30 str as 

40 dim int aia(5) 9 bia(0) 

501input ••ファイル名を入力 
60 as: “a : Y ff +as 
70 ai=fopen(as,"c ”） 

80 fwrite(aia f 6 f ai) 

90 fclose(ai) 

⑽ ai : fopen< as • ## rw ## ) 

10 while feof(ai)< >-1 

20 fwrite(bia 9 1 9 ai) 

30 print feof(ai ); 

40 endwhi le 
50 fi-Ioso(ai ) 

60 end 


ださい-—〉？ 'as 
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FGETC 


標準関数 


/• fgetc sample 
int aiibi 
char ac 

str as = ## personal workstation X680OO •• • bs 
dim char aca(31) f bca(31) 

1 input •• ファイル名を人力してください-—〉？ ”；bs 
for ai=0 to 31 

aca(ai)=asc(mid$(as f ai + l,1)) 

next 

ai = fopen ( bs . ， # c ## ) 

for bi=0 to 31 
ac-aca(bi) 
fputc(ac,ai ) 

next 

fcJose(ai ) 
a i = f open ( bs , •• rw•• } 
bi =0 

while feof ( ai )0-1 

bca(bi) = f getc(ai) 
bi=bi♦1 
endwhile 
fclose(ai ) 



for ai=0 to 31 

print chr$(aca(ai ))； 

next 

print:print ”bca =； 
for ai=0 to 31 

print chr$(bca(ai ))； 

next 

end 


fgetc ( fp ) 


衍定されたファイルから l 文字ずつ泣み込みます。 w : リ侦として、泣み込んだ义字の 
キャラクタコードを返します。ファイルの iri •後まで泣み込んだ場合^、エラーの場介 
は一1を返します。 

fp . ファイル番号 

ファイル内のデータポインタの位:？ i は、1八イトずつ移! J 力していきます0ファイル内 
をランダムアクセスしてデータポインタを移勋する場介は、 fseeklitl 数を使 HI します。 


害 式 

引数 

戻り 

機能 


用例 


putc 01 


0000000000000000000000000000000 
123456 7 890123456789012345678901 

1111111111222222222233 
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FILES 


コマンド 



式 


省略形 


機能 


⑴ files 〔”〈ドライブ名〉く ファイル 名〉”〕 


す私 if されたドライブのファイルの•踅を表示します。 

ドライブ名、ファイル名が W 略された場合、カレントドライブのカレントディレクトリ 
のすベてのファイル名を I 由)曲•に衣示します。ドライブ名のみ指•定された場合はネ旨定さ 
れたドライブのカレントディレクトリのすべてのファイル名を表示します。ドライブ 
名とファイル X が指定された垛合には、衍定されたファイルの悄報が表示されます。 
ワイルドカードも使川できます。 

くドライフ名〉、くファイル名〉 の 詳細に ついては、 「 Human 68 k ユーザーズ マニュアル」 
を参照してください。 

lfiles 命令では出力光がプリンタとなります。 


用例 


files "a :¥••拿 
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FILL 


GRAPH 


next 

end 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 


用例 ■ 


書式] fill ( xl . yl . x 2 . y 2 . p ) 

引数 1 int 
戾り値 1 void 

機能 J グラフイック_曲 1 •.に中を嗜リつぶしたボックス（叫灼形）を描きます。 

xl . 始点標 

yl . 始点 Y 座標 

x 2 . 終点 X 啤標 

y 2 . 終点 Y 座標 

p . パレットコード（色〉 

xl 、 yl 、 x 2 、 y 2 は、一 32768 から 32767 までの fift をとることができます。クリッヒング 
エリアについては windows 数て•指定された剛になります。また、バレットコード P 
は 0 から 65535 までの侦をとることができ、その Mr 大侦はグラフイック I 由 llfti の次 I 由 1 曲' 
サイズおよび色モードによります。 


i 2 2 2 2 t 
r 1111 i 

• 5 5 5 5 e 
•1 5 • 
e d ddd 3 i 
t 0 o 0 0 5 d 
i 0 m m m ra 5 t 
ed 1 0 6 i 

Iff 2}}}} 拿 c 
pil (((()t 
me, 0 d d d d ( i 
a ,3 tnnnndb 
sit a a a a n ( 
bl)orrrrrl 
1 » 1 • ニニニ i -I ii 1 
1 *1 .1 i .1 i * 1 * 1*1 
iaeeabcdeff 
fetf 
t r a r 
拿 n c p o 
/ i s V f 
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30 float hf=-5.6# 
40 float cfx5l 
50 print f ix(a f ) 
¢>0 print f i x ( b f ) 
70 print fix(cf) 
80 end 


FLOAT 


ステートメント 



»式 I float ぐ皮数名>〇 く定数八〉〕〔，•••〕 

機能 I 芡数を次:数 （ float )5? としてします。 W 時に侦を代入することもできます。 

朌則として、変数宣3はメインプログラムの先頭で行ってください。また、同じ名前 
の変数をメインプログラム中で柯宣 g することはできません。 


char 、 int、str 


用例 10 /* float sample 

- 1 20 float af = 25000000000000# 

30 float bf =-5 .68759412E+200# 
40 float cf=l#/3 t df=-3.254# 

50 print af 

60 print bf 

70 print cf f df 

80 end 
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FOPEN 


標準関数 



fopen ( fn . md ) 


str 


定されたファイルを、モードを決めてオーブンします0ひ i リ飢として、ファイル S 
号を返します。エラーの堝作は 一 1を返します。 


fn . ファイル X 

md . モード 

=すでにむ-作しているファイルを忒み込み⑴（リード）としてオーブ 
ンする。ファイルがない場☆は エラー。 

” u ” =すでにむ:作しているファイルを •*: •き込み⑴（ライト）としてオーブ 
ンする。ファイルがない場鈐はエラー0 
” rvv ”= すでに存在しているファイルを読み宵き闷⑴（リード/ライト）と 
してオーブンする。ファイルがない場合はエラー0 
” c ” =靳说ファイルを忒みノ::き I 山 jfll (リード/ライト）としてオープンす 
る。 M —ファイルが、すでにむ:在している場作は、そのファイルを 
m 上してから、说み, 1 !••き I 山川1(リード/ライト）として新しくオーブ 
ンする。 

特に、既存ファイルのデータに対して、追加、修正する場合は、” w ”、” rw ” モードを 
使 HI します。 

オーブンされたばかりのファイルでは、ファイル内のデータポインタの位； K は、ファ 
イルの; t 娘にあります。データポインタを移的する坳介は、 fseekra 数を使⑴します。 


用例 


10 /* fopen sample 
20 int ai.bi 
30 str as 

40 dim int aia(99),bia( 100) t cia(0) 

50linput •• ファイル名を入力してください ——>? 
60 for ai=0 to 99 
70 aia(ai)=&H1 2345678 

80 next 

90 /* create mode 
100 ai-fopen(as, ,# c #， ) 

110 fwrite(aia f 100 f ai) 

120 fclose(ai) 

130 /* read/write mode 
140 a i = f open ( as , ## rw ,f ) 

150 /* update 拿 / 

160 fseek(ai t 40,0) 

170 cia(0)=&H 87654321 

180 bi = fwrite(cia f l,ai) 

190 if bi く = 0 then print •update error!” 

200 / < append 拿 / 

210 fseek(ai,0,2) 

220 cia(0)=&H 87654321 

230 bi=fwrite(cia f l f ai) 


;as 
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240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 


if bi <:0 then print .append error!" 
/ 拿 read 拿 / 

fseek(ai f 0 9 0 ) 

bi=fread(bia f 101 f ai) 

if bi <:0 then print .no data( r/w) ! ## 
print bi 
fclose(ai ) 

/ 拿 create mode 
ai = fopen(as f M c ,# ) 

bi=fread(bia f 101 f ai ) 
if bi <r0 then print "no data(c) ! #i 
print bi 
fclose(ai) 
end 


FOR 〜 NEXT 


ステートメント 



窨式 I for く int 5? 変数％〉= <初期値 〉 to く ii 網 ift > 

くループの内界〉 

next 


I _能 I for から next までの|«]で衍定されたくループの内衫〉を、指定された M 数だけ繰り返し 

(ループ）ます。 

增分は1です。 

く初期侦〉がく Ai 終侦〉と菩しい場各は、1 M だけくループの内容〉が実行されます。ま 
た、〈初期 M > がくム i 終侦〉よリ人きい場分は、くループの内容〉は一度も実行されませ 
ん〇 


用例 


10 /* for next samole 
20 int ai•bi 
30 fils 


40 in PUt "ステップを入力してください---〉" 
50 print 

60 for bi-0 to10 


70 ci:bi 拿 ai 

80 print bi f ci 

90 next 


/* step 


1 00 end 
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FPUTC 


標準関数 


/拿 fputc sample 
lnt ai•bi 
char ac 

str as 二 •• persona 1 workstation X680O0 •• • bs 

dim char acai31) 

1input "ファイル名を 人力してくださ い---〉？"； bs 
for ai*0 to 31 

aca(ai い asc 《 mid$<as•ai♦1 f 1)) 

next 

ai = fopen(bs• .c ) 

for bi=0 to 31 
ac^aca(bi) 
f putc(ac » ai ) 

next 

fclose(ai) 
end 


式 


fputc(ch.fp) 


引数 


char(ch),int(fp) 


戻り値 


機能 


ネ&定されたファイルに 1 文字ずつ?叩き込みます。戻り値として、并き込んだ文字のキ 
ャラクタコード ch を返します。ファイルへの:用き込みができなかった場合や、エラー 
の場 ft は、一1を返します。 

ch . 杏きこむキャラクタコード 

fp . ファイル番号 

キャラクタコード ch は、 0 から 255 の値をとります。ファイル内のデータポインタの位 
策は、1バイトずつ移觔していきます。ファイル内をランダムアクセスしてデータポ 
インタを移幼する場公は、 fseekIM 数を使) H します。 


C 


0000000000000000 
1234567 890123456 


例 

用 
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FREAD 


標準関数 






fread(na.n f tp) 

数値切一次 tCSi! 列 X (na).int(n.fp) 
int 

衍定されたフアイルから、衍定された要素数分 n を指定された配列 na に说み込みます。 
厌リ侦として、次:際に説み込んだ要紊敉を返します。エラーの場合は 一 1を返します。 


na . 数値®—次尤配列 Z ( int 型または、 char 5? または、 float 型の一次元 

配列名） 

n . 要素数 (1 バイト ( charS ) または4バィト （ int 型）または8バイト 

( float 型)単位) 

fp . ファイル番号 

ファイル内のデータポインタの位策は、指定された配列 na のデータ型に対応して、 
char 5? であれば1バイトずつ、 int © であれば4八イトずつ、 float 型であれば8バイト 
ずつ移勋していきます。ファイル内をランダムアクセスしてデータポインタを移 | jj す 
る坳は、 fseekl 对敉を使⑴します。 



fwrite 


用例 


10 /* fread sample 
20 int ai f bi 9 ci 
30 char ac f be 
40 float af 
50 str as 

60 dim int aia(3) 9 bia(3) 

70 dim char aca{15)•bca(15) 
80 dim float afa(1) 9 bfa( 1 ) 
90 els 


100 1input •• ファイル名を人勾してください —— >?•• ；as 
110 /拿 write file 
120 ai=fopen(as, M c") 

130 repeat 

140 input •• データの ® タイブを入力してください < int = 0 • char 
) -> •• ; ac 


150 if ac 二 0 then { 

160 for bi=0 to 3 

170 input "int 犁データを人力してください ——> •• 

180 aia(bi)=ci 

190 next 



200 
2 10 
220 
230 
240 
250 



fwrite(aia f 4 f ai )} 
ac=1 then { 
for bi=0 to15 


input 


aca(bi 

next 


char 窀データを人ねしてください - be 
=bc 


260 fwrite(aca•16 ， ai)} 

270 if ac=2 then { 

280 for hi=0 to1 

290 input "float1? データを人力してください ——> M ；af 

300 afatbi)=af 


float = 2 
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310 next 

320 fwrite(afa,2 f ai)) 

330 until ac<=2 
340 fclose(ai) 

350 els 

360 /t read file 
370 ai = fopen { as • •• rw") 

380 print •• 害き込んたファイル 《"+as + ") の内容を表示します"： print 
390 if ac=0 then { 

400 fread(bia t 4,ai) 

410 for hi=0 to 3 

420 print •• データのボインタの位置じ ； t seek(ai• bi 拿 4 M 

4 30 print hi a(bi ) 

440 next} 

450 if’ ac=1 then ( 

460 fread(bca•16•ai } 

470 for hi=0 to IS 

480 print •• データのボインタの位 ■( i# ； fseek(ai t bi f 0 ) ； # )= 

490 print bca(bi) 

f>00 next.) 

510 if ar = then { 

520 fruad(bfa t 2 f ai) 

530 for hi=0 to1 

540 print •••テー タのボインタの位 1 M ; fseek(ai f bi ) 

550 print bf a(bi) 

560 next) 

570 fclose(ai) 

580 end 
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FREADS 


標準関数 



freads ( st , ip ) 

str 型変数名 （ st >, int ( fp ) 


指定されたファイルから1行を str 5! 変数 st に説み込みます 0 戻り値として、ファイル 
から説み込んだ文字数を返します。ファイルの敁後まで説み込んだ場合や、すでに読 
み込んでいる場合あるいはエラーの場か i 、一 1を返します。 


st . Zc み込んだ文字列を格納する str 型変数名 

fp . ファイル番号 

1行の説み込みを終了するのは、改行 ( CR (& HOD >、 LF (& HOA )>^ ii われたとき 
か、 st の文字バッファがいっぱいになったときです。ファイルの说み込みを終了するの 
は、ファイルが終わったときか、ファイノレ終 r コード （& H 1 A ) が现われたときです0 
なお、 st の文字バッファには、改行およびファイル終了コードは丹き込まれません。 
ファイル内をランダムアクセスしてデータポイン.夕を移觔する場合は、 fseekl 对数を 
使 HI します。 



fwrites 


用例 


10 /> freads sample 
20 int ai 
30 str as,bs 12551 
40 cl s 

501input " ファイル名を入力してください - 一〉？ "： as 
60 /t write file 
70 ai = t % open ( as • # c f, ) 

80 print "害き込むファイル名は 、” + as ♦" です " 

90 while bs< >chr$(26) 

100 bs: ••” 

110 print " 終了する場合は 、 # end^ を人力してください ！！" 

120 1 input "文字や文字列を入力してくたさい---〉？"； bs 

130 /拿 cr = chr$(13) f If = chr$(10) 

140 bs=bs+chr$(13)+chr$(10) 

150 /拿 Ctrl♦ Z = chr$(26) 

160 if bs= ’end" ♦chrS (13) +chr$ (10) then print •• ファイルをクローズします • 

=chr$(26) 

170 fwrites(bs 9 ai) 

180 endwhi1e 
190 fcloae(ai) 

200 (Is 

2 l 0 for ai=0 to 10000: next 
220 /* read file 

230 print "害き込まれたファイル《 " 仏 3 + ") の内容を表示します ” 

240 bs="" 

250 ai : to pen ( as f ## rw #, ) 

260 repeat 

270 print bs 

280 f reads(bs 9 ai) 

290 until feof(ai ) •-1 
300 folose(ai) 

310 end 


: bs 
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FREE 


シテスム変数 


害式 


戻り値 


機能 


用例 


free 


祝在のメモリ上のフリーェリアを返します。代入することはできません。 

10 /* free sample 
20 print free 
30 end 


FRENAME 


標準関数 



frename ( fnl , fn 2) 

str 

int 

ファイル名 fnl のファイルをファイル名 fn 2 に変史します 0 変史できた場介、戾リ侦と 
して0を返します。エラーの場介は一1を返します。 

fnl . 変史したいファイル名 

fn 2. 変更後のファイル名 


用例 


1 0 / * frename sample 
20 int ai 
30 sir as•bs 
40 cis 

501input f • 変更したいファイル名を入力してください - 一〉？”； a 8 
60 J input " 新しくつけるファイル名を入力してください ---〉？” ；bs 
70 print •• ファイル名 《 "+as + " > をファイル名 < " + bs + " >に変更します 
80 ai=frenamo(as f hs) 

90 if ai<>0 then print •• ファイル名の変更ができません " 

100 print. " ファイル名の変 * ができました ” 

110 end 
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FSEEK 


標準関数 



fseek(fp,os.md) 


されたファイル内のデータホインタを 移勋します。 ファイルをシークモード md 
で衍定 された 位闪から 1バイト 中位で ランダムアクセス するとき に 使川します。 シー 
クモード nicl で衍定 された 位芯から、 オフセット os で衍定 された ところまで、 ランダム 
アクセス 後、新しい データポインタの 位芯を返します。 エラーの 場介は一 1 を返しま 
to 


fp . ファイル 泝 v 

OS . オフセット （八イ ト中•位) 

md . シークモード 

0 =ファイルの光火 i 

1 =m.(r>m 

2 =フアイルの終わリ 


用例 


10 /* fseek sample 
20 int ai 9 bi 
30 char ac 


40 str asr M peraonal workstation X68000 , bs 

50 dim char aca(31) f bca(9) 

60 1input •• ファイル名を入力してください一-〉？ M ;bs 
70 for ai=0 to 31 

80 aca(ai>=asc{mid$(as•ai + 1 •1> ) 

90 next 

100 ai=fopen(bs t M c") 

110 for bi=0 to 31 

1ac=aca(bi) 

130 fputc(ac,ai ) 

140 next 

150 fc]ose(ai ) 

160 ai:f open(bs •” rw M ) 

170 fseek(ai 9 20 9 0 ) 

1H0 for bi-0 to 9 

190 f seek(ai 9 1 f 1 ) 

200 bca(bi) = fgetc(ai ) 

210 fseek(ai••1 • 】 ） 

220 print chr$(bca(bi)); 

230 next 

240 fcio3e(ai) 

250 end 
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FUNC~ENDFUNC~RETURN() ステートメ 


害式 | func 〔くリ侦の W >〕 <1肖? T パ〉（〔くリ Ift リスト〉〕} 

く関数の内容〉 
endfunc 

機能| IW 数を定衣します。 func 〜 endfunc の IWJP (は、必ず end 命令以後に定義します。また、 

func 〜 endfunc の関敉内では、ローカル安!敉をす脱でき、 1 %时•び出しもできるよう 
な W 造になっています。ただし、ぬ則として fid 列变玫などはメインプログラムの: t ⑽ 
で：^:言してください。 

通常、リ I 数は乃ンマ （ ，>で1ズ.切ってぐ jl 数リスト〉に Jil 述します。リ I 数がない場介は打 
略可能です。 

それぞれのリ lf < につづけてセミコロン（： > を, 1 ::き、その後にデータ W をす IT 4 i すること 
ができます0このデータ切の衍定を朽略すると引敉のデータ5?は int 5'! になります。 

メイン ブロ グラム中で、定義された関数に渡す引数のデータ切や例数は、くリ|数リスト〉 
のデータ®や倘敉と•致させてください。 

func 〜 endfunc で定芥された聞数から iiiiW 紡尖などの飢を返した t 、叫れは次のような 
命令を func 〜 endfunc でかこまれた中で使川します 0 


return (〔く W リ W (>〕> 


func 〜 endfunc で定義された開敉 からこの return 命令によって返される;乂リ飢 の デ 
ータ型は、く W リ値の5?>で指定することができます。 ft 略した坳介は int 型になリま 
す。 

func 〜 endfunc で定義された関数は、プログラムとしてメモリ上に存在していればダ 
イレクトモードでも灾行できます。 


用例 


100 /拿 func sample• coast creation 拿 / 

110 float s 

120 while s<1or s> = 2 

130 input "ratio1 to 2 ## ；s 

140 endwhile 

150 s - (s-1 )/10-fl 

160 screen 1,2,1 9 1 

170 s=3qr(s*s-l) 

180 float x0- 100 f xl = 412 f y0 = 0 f yl=0 
190 fractal(x0 f xl•y0 f y1 f 1) 

200 line(100 f 50 f 412 ， 50 f 255 ， 65535) 

210 end 

220 func fractal(x0；float f xl；float f y0 ； float,y1 ； float,sp;int) 
230 float 1,r, x2, y2 

240 l=sqr( (X 1 -X0)*(X 1 -X0)♦( y1 -y0)<( y l-y0)) 

250 if 1<2 or sp>:9 then { 

260 line(x0 f y0/3+50,xl f y1/3+50 ,255,65535) : returnO 

270 } 

280 r=rnd()♦rnd()♦rnd()-2 
290 x2= ( x0+xl)/2-fs*(yl-y0)*r 

300 y2=(y0>yl>/2 + s 拿 { 

310 sp = sp ♦1 

320 fractal(x0,x2 f y0,y2,sp) 

330 fractal(x2 f xl f y2,yl f sp) 

340 endfunc 
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FWRITE 


標準関数 


窨式 




fwrite(na, n, fp) 

数値型一次/ tfld 列名 (na), int(n, fp) 


衍定された配列 na のデータを、衍定された要本数分 n だけ指定された ファ イ ルに 并き 
込みます。《リ侦として、次:際に荇き込んだ要索数を返します。エラーの場介は一1 
を返します。 


na . 数姐吧一次ノ dfid 列％ (int5!! または、 char 型または、 float® の一次元 

K 列名) 

n. 要素数 (1 バイト (char 奶または4バイト (int 型）または8バイト 

(float®) _ 

fp . ファイル番号 

ファイル内のデータポインタの位；«は、指定された配列 na のデータ切に対応して、 
char 型であれば1バイトずつ、 int 型であれば4バイトずつ、 float 型であれば8バイト 
ずつ移! W していきます 0 ファイル内をランダムアクセスしてデータポインタを移！^す 
る場公は、 fseekW! 数を使用します。 



fread 


用例 


/韋 fwrite sample 
int a I.bi 
Htr as 

dim int aia(5) v bia(5) 9 cia(0) 
djm rhar aca(23) f bca(23) t cca(0) 
1input ••ファイル名を入力して 
for ais0 to 5 

ai«(ai ) ： &H1 2345678 

no\ t 

/« write 

a i s fopen ( as f 99 c") 

fwrite(aia.6 f ai) 


10 
20 
30 
40 
50 
60 
70 
80 
90 
00 
10 
20 

30 fc-1 ose ( a 
40 /• read 
50 air fopen 


ださ 


160 

fseek( 

ai f 

8 9 0 ) 

170 

fread( 

CIA 

» 1 »ai ) 

180 

pr int 

•• c 

l n 

t type 

190 

fseek C 

ai • 

8.0) 

200 

fread( 

cca 

t 1.ai) 

210 

print. 

•ch 

ar typ 

220 / •拿 

int read 


230 

f s • ヂ k ( 

a l• 

0.0) 

240 

t r^ad( 

bia 

• 6 f ai) 


250 / * char r 
2f>0 fseek 

270 froad 

280 fcloset ai 
290 print "in 
300 lor ai=0 
310 bi:ai 

320 print 

3 ：<0 print 

340 print 

350 print 

360 print 

370 

380 nex 
•<90 ond 


ead 

ai , 0 • 0 ) 
bca•24•a j 1 


array 

5 


•: char array 


: hex$( bi 


bca( M ;bi ;- 
bca ( ••; bi ♦1 
bra (": bi♦2 
ben* ••: biO 


hex$(bca(hi♦1 

hex*(bca(bi +2 
hex$(bca(bi*3 
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FWRITES 


標準関数 



fwrites ( st ， fp ) 

str 型変数名 （ sthint ( fp ) 

int 

指定されたファイルに strS 変数 st の 1 行を, 1 叩き込みます。戻リ値として、ファイルに 
邦き込んだ文字数を返します。エラーの場介は、一1を返します。 


st . 并き込むべき文字列を格納している str 型変数名 

fp . ファイル番号 

null 文字（キャラクタコードの0> は, 1 F き込みません。ファイル内をランダムアクセス 
してデータポインタを移勋する場合は、 fseek 関数を使用します。 



f reads 


用例 


10 ft file sample 
20 int ai 
30 char ac,be 

40 str as,bs(255] f C8 f ds f es f fa f bun 
50 cl s 

601input ••ファ イル名を入力して < ださい一-〉？ ••； as 
70 /拿 writ e file 
80 ai = fopen ( as , M c ,# ) 

90 print ••害き 込むファイル名は 、 " + as + " です " 

100 while bs<>chr$(26) 

110 bs = “” 

120 print "終了する場合は、 • enW を人力してください ！！" 

130 1 input ••文字や文字列を人力してくださ い---〉？”； bs 

140 /拿 cr = chr$ (13) , If = chr$ (10) 

150 bs = bs+chr$( 13)«fchr$(10) 

1B0 /拿 Ct rl ♦ Z = chr$( 26 ) 

170 if bs = M end #, +chr$( 13>+chr$(10) then print ••ファイルをクローズします 

=chr$( 26 ) 

180 fwrites(bs 9 ai) 

190 endwhile 
200 fclose(ai) 

210 for ai=0 to1 0000: next 


220 print 

230 re file に害き 込まれた”） 

240 print 

250 /* update file 
260 a i = fopen ( as , rw ## ) 

270 while -1 

280 i input « iF • する文字がありますか？ く y/n>---> •• ;cs 

290 if cs = #f n ,# then break 

300 丨 input 正したい文字を人力してください -—〉？”； ds 

310 repeat 

320 ac=fgetc(ai) 


330 

340 

350 


f ac=13 then br=bc+l : continue 
f ac=10 then bc=bc+l : continue 
t % ac = 26 then break 


360 

370 

380 


f bo-1 or be=2 then print 
f asc(ds)=ac then { 
color 2 
print. chr$ ( ac ) 


•: bs 
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400 
410 
4^0 
430 



450 


れ〇 


470 

480 


490 


500 

510 

520 


color 3 

input •• この文字でよろしいですか？ く y/ n > ——> M ;es 
1 1 es< > y” then continue 

1 in P ut "新しく » 正する文字を人力してください-—〉？"； fs 
fseek(ai , - 1 • 1 ) 

f putc(asc(f s) 9 ai) 
es=." : continue| else { 

00 ior 3} 
print rhrS(ac )； 
b 《、： 0 

unti l feot (ai )=-1 

if ac •く >26 then print " « iE する文字がありませんでした ••： break 
break 


530 endwhile 

540 pr i nt :print 

550 re^file( tf « 正された"） 

560 end 

S70 / % read file 

580 func re file(bun ； str) 

590 print bun + " ファイル （ ”+as+" > の内容を表示します 
600 bs="" 


610 a i = f open < as , rw" J 
620 fseek(ai f 0 f 0) 

630 repeat 
640 print bs 

650 freads(bs•aiJ 

660 until feof(ai)=-l 
670 fcloseall() 

680 endfunc 



f. 文卞列に変換したしイ7•動づ、数攸 

i . 文字列の桁数 

通常は指定された桁数 i の灾数叙 W に変換しますが、それができない場合は指数表％に 
变換します。光頭の” (T は変換の際に取リ除かれます。 


， atof、ecvt、fcvt 


用例 


10 /* gcvt sample 
20 float af f bf f cf 
30 afr 250000000000 00# 
40 bf=- 2.654668 1E+205# 
50 cf=- 5.2365426 E-018# 


60 

pri 

nt 

str$ 

af) 

70 

pri 

nt 

gcvt 

af f 20) 

80 

pri 

nt 

str$ 

bf) 

90 

pri 

nt 

gcvt 

bf f 20) 

100 

pri 

nt 

str$ 

cf) 

110 

pri 

nt 

gcvt 

cf,20) 

120 

end 





122 






GET 


GRAPH 


窨式 

引数 
戻り値 
機能 


get ( xl , yl , x 2, y 2 f na ) 

int ( xl . yl . x 2. y 2). 数侦切一次/ tfid 列名 （ na > 

void 

グラフ ィ ック神1面の指定領域のドット パターンを 指定された配列 na に説み込みます。 

xl . 始点辦:標 

yl . 始点 Y 座標 

x 2 . 終点 X 座標 

y 2 . 終点 Y 座標 

na . ドットパターンを说み込む数 fift ?! —次元配列名 

xl 、 yl 、 x 2、 y 2 は、 window ^ 数で指定された範网内の値を取ることができます。ま 
た、 fid 列 na へのドットパターンの说み込みかたとしてはグラフ ィ ック I 由 Hfti の実 I 由' I 曲•サ 
イズおよび色モードにより次のようになります。 

実画面サイズ 1024 X 1 024、16 色モード （4 ビツ ト/ド ツ ト構成） 

読み込み順 =( xl , yl ). ( xl +1, yl ), …… ，（ x 2, yl ),( xl . yl +1), ( xl + 
1. yl +1), …… ，( x 2. y 2) 
char 型配列の場合 = 2 ドット取位 
列の場介= 8ドット中•位 
float ®! 配列の場合=16ドット中位 
実画面サイズ512 X 512、16色モード 

实_面サイズ 1024 X 1024、16色モードと M 様 

俱し、 apageWl 数によって、指定されたアクティブ ページ （〇〜3 >に対しての 
み冇効 

実画面サイズ512 X 512、256色モード （1 バイト/ドツト構成） 

説み込み順=戈_曲•サイズ 1024 X 1024、16色モードと In •腺 
char 型 Sd 列の場公=1ドット単位 
int 型 fid 列の堝合二4ドット単位 
float 型 ftd 列の場合=8ドット卓位 

但し、 apagd « 数によって、指定されたアクティブページ（〇、1>に対しての 
み有効 

実画面サイズ512 X 512、65536色モード （2 バイト/ドツト構成） 

読み込み順=灾画面サイズ 1024 X 1024、16色モードと滕 
char 型配列の場合= 2要素1ドット単位 
int 型列の場合= 2ドット申•位 
float 型配列の場合=4ドット単位 
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グラフイック_面への齊き込みについては put 関数を参照してください。 
put 


GOSUB 〜 RETURN 


ステートメント 


害式| gosub く行番号〉 

指定したサブルーチンを呼び出し、 return 命令でもどリます。 

ただし、 gosub 命令を使 W したプログラムは、行 S 号に依存したブログラムになるため 
load ® 命令、 save ® 命令は使用できません 0 また、 renum 命令によるく行が;◊の変史 
もできなくなります。 

goto 

10 /拿 gosub return sample 
20 print "super ; 

30 gosub 100 
40 print "SHARP 1 . 

50 end 

100 print . personal workstation X68O00 •• 

110 return 


用例 


機能 
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/拿 hex$ sample 

int ai f bi 

ai = -255 

bi=100542300 

print hex$(ai) 

print hex$(bi) 

print hex$(ai)+hex$(bi) 

end 


GOTO 


スフ—卜 



_窨式 goto く行番号〉 
_機能"]ネ玲定した行にジ』 


用例1 


す} t 定した行にジャンプします0 

ただし、 goto 命令を使) II したブログラムは、行番号に依存したブログラムになるため 
load ® 命令、 save @ 命令は使用できません 0 また、 renum 命令によるく行番号〉の変史 
もできなくなります。 

goto 命令で、 for 〜 next 、 while 〜 endwhile などのブロック稱造から外に出てしまうと 
プログラムの勒作が正常でなくなる可があります。 


10 /* goto sampl 
20 print super 
30 goto 100 
40 end 

100 print M oerson 


workstat 


X680OO 


HEX$ 


標準関数 




第 4 章リファレンス 


HOME 


GRAPH 


害式 

引数 


home ( pa ， x , y > 
chanpa ), int ( x , y ) 


_ 民り値 _ void 


機有泛 1 グラフイック I 由 I 曲•の実 I 由 I 面における表/ j ; 调曲•の/!:卜座標を指定します。 


pa . アクティブ ページ 

x . 灾画面における衣示_面の 4 il :. X 座標 

y . 面における表 >河由 i 曲の左上 Y 座標 

アクティブページ pa はグラフ ィッ ク I 由1曲•の戈 I 由 •! 曲•サイズ及び色モードによリ敁人侦 
( 0〜3 ) か'决まり、 x 、 y も•にグラフィック I 由- I 曲の案 I 由|曲•サイズにより、，太: I 由|曲•サ 
イズが 512 X 512 の場合は0から511まで、あるいは実画面サイズが 1024 X 1024 の場合 
は0から1023までの侦をとることできます。 
screen 命令を次: i /•すると ( x . y ) には （0. 0>が冉没定されます。 


■4 apage , screen 、 vpage ^ window 


厂用例 


10 /拿 home sample 
20 int ai f bi 
30 float af 
40 screen 1 f 1 9 1 9 1 
50 vpage(0) 

60 window(0 f 0 f 511 f 511) 

70 apage(0) 

80 kyu(0) 

90 apage(U 
100 kyu(1) 

110 apa^e(2) 

120 kyu(2) 

130 apage(3) 

140 kyu(3 ) 

150 vpage(15 ) 

160 while -1 

170 for ai=0 to 511 

180 af:pi()tai/512 

190 bi=sin(af) 拿 511 

200 home(0 9 ai f bi) : home(1 9 bi 9 ai) 

210 home(2 f 511-ai f bi ) : home(3 f bi f 511-ai) 

220 next 
230 endwhile 
240 end 

250 func kyu(ai) 

260 circie( 128 f 128 f 50 f ai >4-fl) 

270 paint( 128, 128 f ai 拿 4.1) 

280 circle(256 f 256 f 50 f ai»4 + 2) 

290 paint(256 f 256 f ai«4+2) 

300 cirole( 384 f 384 f 50 t ai*4-f3) 

310 paint(384 f 384 f ai<4+3) 

320 endfunc 
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HSV 


GRAPH 


ft hsv sample 
int ai,hiici 
screen 1,3,1•1 
vpage(1) 
for ai=0 to15 

for bi=0 to 3 

for ci:0 to 2 

next 

next 

next 

end 

func kyu(di ； int,ei ； int f fi ； int) 
int gi f hi 9 ii 

fill(di t ei t difl27 t ei+l 69,0) 
for gi=0 to 31 
hi=31-gi 
for ii=0 to1 

circle(di+64•ei+64•hi*2 + ii•hsv{fi•31> + ii•0•360•256 > 
paint(di+64 f ei + 64 f hsv(fi f 31 f tfi)4ii ) 

next 

next 
endfunc 


書式 


hsv ( hu , sa , va ) 


数 


char 


戻り値 


機能 


色相 （ hu >、 飽和度 ( sa >、 明るさ （ va > からカラーコードを求めます。 

hu . 〇〜191 

sa . 〇〜31 

va . 0〜31 

なお、この hs \1 対数によって得られるカラーコードは、〇〜65534までの偶数値になり 
ます。したがって、それぞれの偶数侦に1を加えることで、〇〜65535までのカラーコ 
ードを指定できます。 


用例 


000000000000000000000 
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IF 〜 THEN 〜 ELSE 


ステートメント 



if 〈制牛 〉 then 〈文 〉 〔else く文〉〕 


〈条件〉で条件判断を行い、その結果に応じてく文〉を実行します。 

if に絞けてく条件〉を指定します。そのく条件〉が滿たされたときは thenW 下の〈文〉が実 

行され^そうでないときは elseU 下のぐ文〉が実行されます。 

else 以降は肖略することができます。その場作、条件が滿たされなかったときは次の行 
力1行されます。 

条件には、以下のような比較演穿子と論理演冧子とが使えます。論理满兑子は、枚数 
の条件を指定するときに使います。 


l : t » 演算子 

意味 


例 

式 1= 式 2 

式1が式2と等しい 

if 

a =1 

式 1 く〉式 2 

式1が式2と等しくない 

if 

a <> 0 

式1く式2 

式1が式2より小さい 

if 

a <10 

式1 > 式2 

式1が式2より大きい 

if 

a>b 

式1<=式2 

式1が式2と等しいか、式2より小さい 

if 

a <= b+l 

式1>=式2 

式1が式2と等しいか、式2より大きい 

if 

a > 二” n ” 


( a は str 切) 


算子 


例 


意味 

not 

if 

not 

( a = l ) 

a が 1 でなければ thenU 下を実行 

and 

if 

a =0 

and b =3 

a が 0 で、 b が3のときのみ thenW 下を実行 

or 

if 

a <0 

or b =0 

a が0より小さいか、 b が0のときに then 

以下を実行 


then ® または else 節は、 { } と組み合わせて、 ft 数行の条件判断に使 if I できます。 


用例 


10 /* if then else samplel 拿 / 

20 int ai 9 bi 
30 input ”UU + 2 = ••: ai 
40 input #f (2)2^3 = M ;bi 
50 if ai:3 then ( 

60 if bi:5 then { 

70 Print ff (l) t (2)ok! tf } else { 

80 print ,f (l)ok! f (2)error! 

90 if bi=5 then { 


)) 


100 

110 

120 end 


print ,f (l)error f (2 )ok! M ) else 
print "(l)error!,(2 )error!” 


else 
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10 /拿 if then else sample */ 

20 int ai 

30 input "l+2=";ai 

40 if ai<=0 then print "error!” else { 

50 if ai：l then print "error!" else ( 

60 if ai：2 then print 1 error! M else { 

70 if ai=3 then print "ok! M else { 

80 print "error!" }})) 

90 end 


IMG_COLOR 


IMAGE 



img color ( md ) 

char 

void 

J | 义リ込み l 由 I 像のグラフィックハ•レットを補正します0 


md . グラフ ィッ ク I 由 I 曲の色モード （ 0〜2 > 


モード md の侦と想味は次のとおりです。 

〇=グラフ ィ ック〖由1面16色モード 
1=グラフ ィッ ク I 由 i 曲256色モード 
2 =グラフ ィッ クし由 1曲65536色モード 
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IMG 


書式 

引数 
戻り値 
機能 


用例 



lmg homeix , y , dir , cnt , wt ) 
int ( x , y , cnt , wt ), char ( dir ) 


void 


グラフィック_面の表碑)面の位策を移動します。 

x . グラフ ィツ ク丨由滴の実 ㈣ 曲における表づ<1由•励の fehM 標 

y . グラフィツク_面の実 I 雨面における表示両面の左! -. Y ゆ:標 

dir . 移觔方向 （1 〜9 > 

cnt . 移觔ドット数 

wt . ゥヱイト時間（ X 約 1.2# 秒> 

移|カノ/向 dir の侦と您味は次のとおリです。 

1二左下 
2=下 
3=右下 
4=左 
6 =右 
7=扯 
8=上 
9=右上 

10 /< img home sample 
20 int i 

30 screen 1• 3 ， 1,1 
40 console ,,0 
50 img_color(2} 

60 vpage(1) 

70 symbol (0,0 f -X68000- f 2 t 4 f 2 f 32556 f 0) 

80 /* 

90 img^home 《 0,0,2,100, 3000) 

100 img_home(0 f 411 f 8 f 100, 3000) 

110 img.home(0,0, 3,256, 3000) 


IMAGE 
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IMG_HT 


IMAGE 


窨式 

引数 
戻り値 
機有! 


IMG 一 


書式 

引 ^ 
戻り値 
機能 


img ht(xl.yl• x2• y2• p.a) 
int(xl,yl,x2.y2). char(p,a) 
void 

グラフィック两 Hfri とテレビ • ビデオ〖由 llfti との半透明衣が:を制刺します。 

xl. グラフィックI由I曲の t 透明領域の始点»牛:標 

yl. グラフィック1由胸の半透明領域の始点 Y 座標 

x2 . グラフィックI由劇の半透明領域の終点>0¢標 

y2 . グラフィックI由1面の•透明領域の終点 Y 座標 

p. 衍定された領域内のグラフィック画面の半透明表示の設定 (0=12： 

定しない、1=設定する） 

a. 半透明表示の制御 （0= 半透明表示を実行しない、1=半透明表示を 

次:行する） 

なお、この聞数を次 U するにはカラーイメージュニットが必要です。また、 CZ-674C/ 
510C/500C/310C/300C では、この関数を使川できません。 



IMAGE 


img load ( st 〔， x 〕 〔， y 〕 〔， b 〕 > 
str ( st ), int ( x , y , b ) 


グラフィック i 由 ufti をロー ドします。戻り fift として、正常のときは〇、エラーのときは 
一1を返します。 

st . 主 ファイル名 

x. ロー ドするグラフ ィッ ク(同面の fehXi 电標 

y. ロードするグラフィック_曲の左上 Y 座標 

衣/^！由 llfri サイズが 512X512 の場介 
x = 0,y = 〇 

衣/ jil 由 Ufti サイズが 256x256 の 場れ 
0 ^256.0 ^256 
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テレビやビデオから_像を取リ込むとき、_血ドにブランキング部分が同時に取 
まれます。その部分を表示しないようにロードするために、終丫位 S を指定する 
ができます。 


IMG— 


里_式 
引数 

Mufi 

機能 


b 


ロード終の衍定 


い 穿 


dy …ド W のとおり Y 冲:標のドからのドット数 



HIM fnb 


ロード終了位* 


GS 0 - 

•32 

(卜6 

GS 3 - 

•16 

〇〜7 

GM 0- 

•16 

" 

GM 3- 

- 8 

" 

GL 0 • 

- 8 

// 

GL 3 • 

- 4 



256または512ドッ 


馳 户の总味につ t 、ては、 img . savelW 数を参照してください。 



IMAGE 


lmgpos ( hc ) 

char 


void 


㈣ 像取り込み時の i 由 afti 水、 f 位策を補止します。 
he . 水平位置補正データ （ 0 - 255 ) 

♦衣示画面サイズが 512 x 512 の場介 

I 由)像取り込みする際、はじめ: i & H 9 A にセットし、舲止陶こした後 & H 2 C に設定し 
ます。 

• 表示_向•サイズが 256 x 256 の場合 
はじめは & HEB にセットし、静止 I 由|にした後、 & H 24 に設定します。 

なお、この閲数を次:むするにはカラーイメージュニットが必要です。また、 CZ - 674 C / 
510 C / 500 C / 310 C / 300 C では、この関数を使⑴できません。 
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IMG 一 PUT 


IMAGE 


害式 

?T¥ 

昱り値 

機能 


IMG 一 


害式 

引数 
戻り値 
機能 I 


img _ put ( xl , yl , x 2, y 2, ia ) 
int ( xl . yl . x 2. y 2). int 型一次元配列名 （ia) 


void 


グラフィックI由 Itfii の （xl.yl) から （x2,y2> まで、8ドットごとに移#力しなか'ら、配列 
ia のデータを 256x256 ドットのボックスで表示します。 

xl. グラフィックI由I向の始点妍:標 （0SxlS256> 

yl. グラフィックI由I向•の始点 Y 座標 （OSyl‘256) 

x2 . グラフィック睛曲の始点)0电標 （0Sx2 ミ256) 

y2 . グラフィック㈣曲•の始点 Y 座標 (0^y2^256) 

ia . K e ⑽数で说み込んだ int 切一次ゾ drtt! 列X 



IMAGE 


img—save(st〔，x〕〔，y〕) 
str(st), int(x, y) 


グラフィック l 由 Ufli をセーブします。/乂リ侦として、 iK 常の時は0、エラーの時は一1 
を返します。 

st . 主ファイル名 

拉张子はグラフ イツ クI由〗 tfri のスクリーンモードに応じて以ドのように付加されます。 


及づミ1由]_サイズ 

色モード 

拡張户 

256X256 

16色 

GS0 

256X256 

256色 

GM0 

256X256 

65536色 

GL0 

512x512 

16色 

GS3 

512X512 

256色 

GM3 

512X512 

65536 fe 

GL3 


x . セーブするグラフィック I 由|谢の/ r :hXH 《標 

y . セーブするグラフイック I 由価のん: I . Y 座標 

衣/ j;1 由滴サイズか 3 12X51 2 の 
x = 0 . y = 0 

ルバ伸滴サイ X が 256 x 256 の埸ひ 

O^x ^256.0 ^256 
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IMG-SCRN 


IMAGE 



img scrn ( sz , co , dis ) 


void 

グラフ イツ ク ㈣ 曲のスクリーンモードを設定します。 

ただし、グラフ イツ ク ㈣ 曲•クリア、パレット•コントラスト.表示モードの初期化は 
U いません。 


sz . 表>两两曲•サイズ （0 〜2> 

0 =256 X 256 
1 =512 X 512 
2 =768 X 512 

co . グラフィック阐面の实阑面サイズ及び色モード （ 0〜3 ) 

0 =1024 X 1024 16色 
1 =512 X 512 16色 

2 =512 x 512 256色 

3 =512 x 512 65536色 

dis . デイスブレイ解像度（0、 1) 

〇 =mmim 

1=萵解像度 
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IMG_SET 


IMAGE 


害式 

引数 
戻り値 
機能 


img set ( c 〔， c 〕 〔, c 〕 〔, c 〕 〔, c 〕 > 

char 

void 

カラーイ メー ジユ ニッ トの fVM コントロールを行います 0 

c . カラーイメ ージユニッ トの コン ト ロールコード （& H 00 〜 & HFF ) 


コン ト ロールコードー K 表（使用 ボー ト アドレス E 8 E 005 h ) 


入力する僅 

コード 

命 令 

——づ 

備 考 

1 0 

r 1 

0000 

00000 

65536 色 (2 w > モード 

— — 

1 

fc- U 

01 

00001 

- 

，き 


2 

02 

00010 


03 


00011 


-タコ 


ロールモード 


04 


00100 マニュアルモード 


赤色ランプ点灯 
鉍色ランプ点灯 


9 


iii 


05 

06 

07 


00101 


々ラーイメージ 


00110 

00111 




08 


09 


0 0A 

■ ♦ ■ ■ 

1 0B 


0C 

01 ) 


0 

0 


0E 
I OF 


0 


000 


そ/クロ像 

,'IWjON 

出乃 OFF 

リセット ^ 




リセ/卜で解论される , 




001 

010 

011 


ゥラー 
f メージ 


色の 

色の I 娜 x 



100 

101 


色あい UP 


110 


色あい DOW 

映 mup 

峡像 DOWN 


01111 256 色 <2” モード 


16 

10 

10000 

r [ 

リセット ♦ 

~ . —^ sn , 

[ U \ 

li 

1000! 


色の濃さ UP 

_ A 

^sl 

12 

10010 


色の l ? D 0 WX 

_3 

~19^ 

13 

10011 

テロツハ - 

色ぁぃ IH ) 

— i 

20 

i ■ — _ j 

14 

i ■ ■ ■ J 

10100 


th^DOWS 

- j 

21 : 

15 

10101 


映 mup 

_ _ j _ 

22 

16 

10110 


映像 DOWN 

_ J 

23 

17 i 

—■ _ — — - ■— 4 

10111 

16 色 (2 4 > モード 

— 

24 

18 

11000 

\ 

，:き 



31 

IF 

_ _ 】 

11111 



- ^ 


なお、この聞数を太行するにはカラーイメージユニットが必袈です。また、 CZ -674 C / 
510 C /500 C /310 C /300 C では、この聞数を使 W できません。 
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IMG_STI しし 


IMAGE 



img still ( s \ v ) 

char 

void 

l 由 I 像取リ込みモード s \ v を没定します。 


sw . I 叫像^り込みモードの設定 

0 =実行(静止画) 

1 =mmm) 

龙行前に、 screen 命令で、あらかじめ表示画面サイズを 256x256 または 512x512 に、 
ディスプレイ解像度を Low (標來解像度 > に設定します。 

また、_像取り込みを実行するブログラムの終了時には、 img 一 still ⑼を実行します。 
なお、この⑼数を次: i/ •するには々ラーイメージ ュニッ トが必装です。また、 CZ-674C/ 
510C/500C/310C/300C では、この数を使川できません。 


INKEYS 


システム 変数 



inkeyS 

str 

キーボードから人力された1文字を返します。代入することはできません。キー人力 
されるまで待ちます。 


^ input 、 「キャラクタ コード 表 j 


用例 


10 /拿 inkeyS sample 
20 str as 
30 while as<>"z" 

40 print M end of code = 9 z 

50 as=inkey$ 

60 print as 

70 endwhile 
80 end 
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INPUT 


ステートメント 



機能 


input 〔”くプロンプト文〉”く：または，〉〕ぐ変数名〉〔，ぐ変数名〉•••〕 

キーボードから入力されるデータを、指定したデータ型の変数へ代入します。データ 
を入力したら、リターンキーを押してください。 

input 文では、くプロンプト文〉とぐ变数名〉の間にセミコロン（： >あるいは、カンマ（， ） 
が指定でき、セミコロンのときはくプロンプト文〉の後に疑問符 （？） が衣示され> カン 
マのときはなにも衣おくされません。また、変数に人力できる大文字数は、セミコロ 
ン（： ） を使 W した場分は、その衣示 _tfd の水平 W 大衣示文字数 一 （プロンプト文字 
数+ 3 >になり、カンマ （ ， ） を使用した場合は、その表^由〗面の水平大衣示文字数一 
(プロンプト文字数+1 ) になります。ただし、 str5? 変数の場介は、設定された文字バ 
ッファのサイズ以1•.の データは 代入されません0なおカンマ （ ，>やリ l)H 符〇は人力 
できません。 

変数は、カンマ （ ，>で区切って夜数働}^することもできます。この場介、人力する 
データもカンマ （ ， ） で区切って、変数の数だけ入力してからリターンキーを押さなけ 
ればなりません。人力するデータの個数が足りないと、"データの倜数がたりません” 
と衣/ j; •されて人力侍ちとなり、 fl 句数が多いと、”データの個数が多過ぎます”と衣示さ 
tu 余分に入力されたデータは無されます。また、対応する変数の取と人力される 
データの切は、一致しなければなリません。切が速っていた場介には、”データの5?が 
違います”と衣示されて冉び人力待ちとなります。 



inkeyS 


用例 


10 /拿 input sample 
20 int ai f bl 
30 char ac f be 
40 float af f bf 
50 str asl255),bs(255) 

60 input f# int data ai 9 bi = ，# ,ai , bi 
70 input "char data ac f be = ；ac f be 

80 input "float data a f f b f = ,f f af f bf 
90 input "str data as = M ；as 
1 00 print "int data ai = ••: ai • “bi:” ； bi 
110 print "char data ac = ; ac , ..be: ; be 

120 print ••float data af = ; af • •• bf: ; bf 

130 print "str data as = . ;as 
140 end 




第 4 章リファレンス 


INSTR 


標準関数 



instr ( i ， stl . st 2) 
int ( i ), str ( stl . st 2) 
int 

文字列 st 2 を文字列 stl の指定された位 ffii から探してその位; S を返します。位; Si は1 
〜25奶値をとります。ただし次の場合は0を返します。 


• 文？:列 st 2 が兄つからなかった場合 
籲指定された ffiSi が0または ft の場合 
• 文卞列 st 1または st 2 が null 文字の場 ☆ 


用例 


10 ft instr sample 
20 str as f bs 

30 as= #, personal workstation X68000 
40 bs = M X68 ## 

50 print instr(2 9 as 9 bs) 

60 end 


INT 


ステートメント 


害式 int <災数〈定® cA >〕〔,...〕 


^ ^ I 芡数を核数 （ int > 切としてします。 M 時に侦を代人することもできます。 

W 則として、変敎茛 J はメインブログラムの; t 姐で行ってください。また、 M じ名前 
の芡数をメインプログラム中て1移宣萏することはできません。 

^ char , float , str 


10 /< int sample 
20 int ai= 542684521 
30 int bi=- 4265312 
40 int ci: 23563 ,di:28 
50 print ai 
60 print bi 
"0 print ci,di 
80 end 


用例 
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INT 


標準関数 


軎式 int ⑴ 


引数 float 


戻り値 


機能 浮觔小数値 f を越えな t 、敁人の核 £( 侦を返します。 


10 ft int ㈠ sample 
20 float af = 2 . 63# 
30 float bf = -5.6# 

4 0 float cf = 51 
50 print int(af) 

60 print int(bf) 

70 print int(cf) 

80 end 


用例 


ISALNUM 


標準関数 




isalnum ( ch ) 

char 


キャラクタコード chO 文字が英数字 <， a ， 〜， z ，、， A •〜， Z ，、，0, 〜， 9” であるかどうか調 
ベます。英数字であれば一1、そうでなければ0を返します。 


ch . 調べたい文字のキャラクタコード （0 〜255) 


用例 


10 /* isalnum sample 
20 char ac,be f cc 
30 ac^asc("a ”） 

40 bc = asc (•• 5 ”） 

50 cc = asc (•• + ••) 

60 print isalnum(ac) 
70 print isalnum(bc) 
80 print isalnum(cc) 
90 end 
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ISA し PHA 


標準関数 



isalpha ( ch ) 

char 


キャラクタコード Ch の文字が英字 < ， a ， 〜， z ，、， A ， 〜， Z，> であるかどうか調べます。英字 
であれば一1、そうでなければ0を返します。 


ch . 調べたい文字のキャラクタコード （0 〜255) 


用例 


10 ハ isalpha sample 
20 char ac,be t cc 
30 ac = asc ( ,# a ,# ) 

40 bc=asc("5"} 

50 cc = asc 

60 print isalpha(ac) 
70 print isalpha(be) 
80 print isalpha(cc) 
90 end 


ISASCII 


標準関数 




戻り値 



isascmch ) 

char 


キャラクタコード Ch の文字がアスキー文字 （& H 00 〜& H 7 F ) であるかどうか凋べま 
す。アスキー文字であれば一1、そうでなければ0を返します。 


ch . 凋べたい文字のキャラクタコード （0 〜255> 


用例 


10 /* isascii sample 
20 char ac t be , cc , dc 
30 ac=asc(.a.) 


40 bc=asc( M 5 M ) 
50 cc = asc 
60 dc = asc (•• ミ•い 


70 print 
80 print 
90 print 
1 00 print 
110 end 


i sascil(ac) 
i sascii(be) 
i sascil(cc) 
isascii(dc) 
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ISCNTR し 


標準関数 



引数 


戻り値 



iscntrl ( ch ) 


char 


キャラクタコード ch の文字がコントロール文字 （& H 00 〜 & H 1 F 、& H 7 F ) であるか 
どうか調^ます。コントロール文字であれば一1、そうでなければ0を返します0 


ch . 調べたい文字のキャラクタコード （0 〜255) 


用例 


10 /* iscntrl sample 
20 char ac t be,cc t dc 
30 ac = asc("a ’ > 

40 bc=asc( "5" ) 

50 cc = asc i 

60 dc=13 / 拿 entri+M 拿 / 

70 print iscntrl(ac) 

80 print iscntrl(be) 

90 print iscntrl(cc) 

100 print iscntrl(dc) 

110 end 


ISDIGIT 


標準関数 



isdigit ( ch ) 

char 


キャラクタコード Ch の文字が数卞 <’0’〜 ’9’） であるかどうか調べます。数字であれ 
ば一1、そうでなければ0を返します。 


ch . 調べたい文卞のキャラクタコード （0 〜255) 


用例 


10 / * lsdigit sample 
20 char ac f be f cc 
30 ac=asc("a"} 

40 bc=asc( M 5 M ) 

50 cc = asc (••♦••} 

60 print isdigit(ac) 
70 print isdigit(bc) 
80 print isdigit(cc) 
90 end 
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ch . 凋べたい文>•のキャラクタコード （ 0 〜 255 > 

/* lsgraph sample 
char ac•be•cc•dc 
ac=asc( M a M ) 

bc=13 /% cntrl+M 拿 / 

cc = asc (•’ ••） 

debase (•• ミ"） 

print isgraph(ac) 

print isgraph(be) 

print isgraph(cc) 

print isgraph(dc) 

end 


ISGRAPH 


標準関数 


窨式 


数 


isgraph ( ch ) 


char 


戻り値 


機能 


キャラクタコード eh の文字が空む文卞以外の衣示 uff 拒な文字 (& H 2 卜 & H 7 E ) であ 
るかどうか凋べます。衣能であれば一 1 、そうでなければ 0 を返します。 


IS し OWER 


標準関数 


式 


islower ( ch ) 


引数 


char 


戻り値 


int 


機能 


キヤラクタコード eh の文？:が炎小文？： Ca •〜て-あるかどうか調べます。英小文字で 
あれば一 1 、そうでなければ 0 を返します。 


eh 


過べた I 、文卞のキャラクタコード （ 〇〜 255 ) 


用例 


10 /< islower sample 
20 rhar ac f be f cc 
JO ac^asc 
40 bc=asc 
50 e'e-ase 
60 print 
70 print 

80 print islower(cc 
90 end 


■a” 

M A M ) 

#i 5 M ) 

slower(ac) 
siower(be) 


00000000000 
12 3 4 5 


6 7 8 9 0 1 


例 

用 
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ISPRINT 


標準関数 


ft isprint sample 
char ao f be,cc,dc 
ac=aso(.a.) 
be:13 

cc = asc ( •• ) 

debase ( ## J ## ) 
print isprint(ac) 
print isprint(be) 
print isprint(cc) 


nt(be) 
nt (cc) 
nt (dc ) 


end 


entri+M 



ISPUNCT 


標準関数 


_窨 式 ispunct ( ch ) 

引数 char 

戻り値 | int 

機能]キャラクタ： 


キャラクタコード eh の文字が表示 nf 能な記号文字 （& H 20 〜 & H 2 F 、& H 3 A 〜& 
H 40、& H 5 B 〜 & H 60、& H 7 B 〜 & H 7 E ) であるかどうか調べます。衣示" f 能な記号 
文字であれば一1、そうでなければ0を返します， 


用例 


ケ こい 文字のキャラクタコード （ 0〜 255) 


10 /* ispunct sample 
20 char ac f be f cc 
30 ac = asc ( " I ••) 

40 be 二 asc( •• + ••} 

50 cc = asc(.、••> 

60 print ispunct(ac) 
70 print ispunct(be) 
80 print ispunct(cc) 
90 end 
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ISSPACE 


標準関数 





isspace ( ch ) 

char 


キャラクタコード ch の文字か ， f J 文字 （ & H 09 〜& HOD 、 & H 20) であるかどうか調べ 
ます。空内文字であれば一1、そうでなければ0を返します。 


ch . 調べたい文字のキャラクタコード （0 〜 255) 


用例 


10 /* isspace sample 
20 char ac,bc,cc 
30 ac=asc<"a"} 

40 bc = asc( 

50 cc = asc ( •• •• > 

60 print isspace(ac ) 
70 print isspace(be) 
80 print isspace(cc } 
90 end 


ISUPPER 


標準関数 



用例 


isupper ( ch ) 

char 



キャ ラク タコー ド ch の文字が英大文字 （’ A ， 〜 ’ Z ’） であるかどうか調べます。英大文字 
であれば一1、そうでなければ0を返します。 

ch . 調べたい文字のキャラクタコード （0 〜 255) 

10 /* lsupper sample 
20 char ac,bc,cc 
30 ac = asc( #, a ## ) 

40 bc:asc<”A”> 

50 cc = asc( M 5 M ) 

60 print isupper(ac) 

70 print isupper(be > 

80 print isupper(cc) 

90 end 
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ISXDIGIT 


標準関数 




isxdigit ( ch ) 

char 

int 

キャラクタコード ch の文字が 16 進数の文字 （’0’ 〜 ’9’、* a ’ 〜〜 ’ F ’） かどうか調 
ベます。16進数の文字であれば 一 1 、 そうでなければ0を返します。 

ch . 調べたい文字のキャラクタコード （0 〜255) 


用例 


10 /* is?????? sample 
20 int ai 
30 char ac 
40 els 
50 color 3 

60 print ff 1 isxdigit 1 の文字のチェックを行います （ B 当すれば黄色で表示し、«当 

しなければ白色で表示します ）” 

70 print ★ —— コントロールコード " 

80 print ••□—■ スペース（空白 ）” 

90 print - シフト JIS (2 バイト）コードの先朗コード •• 

100 print シフト J IS ( 2 バイト）コードの先 Sfl コード " 

110 print 

120 for ai=l to 256 
ac=ai-1 

if ac< >0 and (ac mod 16)=0 then print 
if ac> =0 and ac< = 31 then { 

if i sxdi« i t ( ac )=-1 then color 2 : print cont inue else print • 

★ ”； : continue} 

170 if ac-32 or ac:127 or ac:160 then ( 

180 if isxdigi t(ac)=-l then color 2 : print con t i nue el ae print ” 

□ ; : continue } 

190 if ac> =128 and ac< =159 then ( 

200 if i sxd i g i t ( ac }=-1 then color 2 ： print •••;: cont i nue else print • 

• •• ; : cont inue) 

210 if ac:> = 224 then { 

220 if i sxdiui t ( ac )=-1 then color 2 ： pri nt cont i nue else print ぃ 

♦ : cont i nue ) 

230 if i sxd i gi t ( ac )=-1 then color 2 else color 3 

240 print ” # ， +chr$ ( ac )； 

2 50 next. 

260 end 


130 

140 

150 

160 
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bi レ 512 


/* itoa sample 
int ai,bi 
ai=30O000 


10 

20 

30 

40 

50 

60 

70 

80 


t oa(bi) 


一用例- 


窨式] itoa ( i ) 

引数 ， int 
戻り値 str 

機能1 锫数 Mi を文字列に変換し、その文字列を返します。 


KEY 


ステートメント 


害式 ] key くファンクションキーナンバー〉，く文字列〉 


機能 


ファンクシヨンキーの内游を定義します。くファンクシヨンキーナンハ•一〉は1〜20 
で、1〜1〇は [ jqj 〜キーを、11〜2〇はキーを押しながら rnn 〜 
[ FiOl キーを押した場公に対応します。 

く文卞列〉の垃さは32文字まで荇効です。 [ CTRL ] + [ X ] ( 1 CTRLI キーを押しな;^ 
らキーを押す)、 ( CTRLl-fflvn (「 CTRL | キーを押しながら [~ M ~1 キーを押 
す)のような文字を定義するには、のように”®”と対応する各大文字 
を並べて使います。 

なお引用符 ( ”>はとなります。 


用例 


「コントロールコードー 

10 /* key sample 
20 key 3 • •• renumW 
30 key 11 t ,f ««X68000«® 
40 key 19,"endfunc” 

50 end 


ITOA 


標準関数 


aba 

/\ 

aaa 

0 o 0 
t t t 


t t t 
n n n 
i i i d 
r r r n 
p p p e 
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KEY し 1ST 


コマンド 


書式 I key list 

機能 1 ファンクシヨンキーの内容一淀を表示-します。 

_ 用 _ 例 _ key list 


KILL 


コ 7 


害式1 kill ”〔くドライブ名〉〕くファイル名〉” 

省略形 1 ki . 

機有を 1 指定したファイルを削除します。< ドライブ名〉、くフ 

「 Human 68 k ユーザーズマニュアル j を参照してくた 



一用例_ 


kil J ''a ： Vtest.dat 
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LEFTS 


標準関数 



left $ ( st , i ) 
str ( st ), int ( i ) 
str 


文？:列 st の先如から指定された文字数 i の文字列を取リ出して返します。 


st . 元の文字列(文字式) 

i . 取り出したい文卞数 

文字数 i は、1から255の値をとります。 

指定された文字数 i が、文字列 st の総文字数より大きいときは、文字列 st をそのまま取 
リ出して返します。 

指定された文字数 i が、0または ft の場介は null 文字を返します。 



mid $, right $ 


用例 



/ 拿 left$ sample 



asz personal workstation X68000 
print left$(as f 8) 
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LINE 


GRAPH 


/ 拿 line samp 
int ai,bi f ci 
screen 1,3,1 
vpage(1) 
for ai-0 to 
bi = rand 
ci=rand 
di=rand 
ei=rand 
fi=rnd( 
gi=65535 
1ine(bi 9 

next 
wipe () 
for ai=0 to 
bi=rand 
ci=rand 
di = rand 
ei=rand 
fi=rnd( 
gi=rnd [ 

1 ine(bi, 

next 

end 


窨式 Iine ( xl , yl ， x 2. y 2， p 〔， Is 〕） 

引数 1 int 
戻り 値 void 

機能 1 グラフィック I由〗面上に罫線を引きます。 

xl. 始点標 

yl. 始点 Y 座標 

x2 . 終点鹏標 

y2 . 終点 Y 哝標 

p. ノ、 0 レツ トコード(色) 

Is . ラインスタイル 

xl、yl、x2、y2 は、一32768から32767までの侦をとることができます。クリッピング 
エリアは window 関数で指定された範 M になります。また、パレットコード p は0から 
65535までの fift をとることができ、そのム i 人侦はグラフィック㈣曲の火㈣而サイズ及び 
色モードによります。 

ラインスタイル Is は〇〜65535の侦をとリ、これを16ビットのビットパターンと兄な 
し、太線 (&HFFFF〉 や点線 (& HAAAA ) などを指定することができます。 


e d 1 


2 2 2 2 
1111 
5 5 5 5 

5 

d d d d 3 
0 0 0 0 5 
0 ra m m m 5 
0 6 


2 2 2 2 » 
1111 i 
5 5 5 5 e 
5 5 » 
d d d d 3 3 i 
0 0 0 0 5 5 d 
0 m m m m 5 5 » 
0 6 6 i 
•拿拿 c 
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/* linput sample 
str as f bs(255J 
as = M X68000 #f 
while bsOas 

print . end of strings • X68000, •• 

1 input . input string ( Uine) - > bs 

print bs 
endwhile 
end 


し INPUT 


ステートメ 


式 


機能 


linput 〔”〈プロンプト文〉”;〕 〈 str 5? 変数名〉 

す&定された str 型変数に、キーボードから文字列を入力します。文字列を人力したら、 
リターンキーを押してください 0 input 命令と遂い、一度に一つの str 型変数にしか代入 
できず、また数侦切の変数への代入はできません。カンマ （• >、引用符 （”） なども代; 
入すること；^できます。 

linput 文では、疑問符 （？） は表示されません。また、 str 型変数に入力できる最大文字 
数は、その表ポ I 由 I 向の水 fWr 人•衣示文字数一（プロンブト文字数十1 > となります。た 
だし、設定されている文字八ッファのサイズ m •.のデータは代入されません， 


000000000 

123456789 



用 
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LIST 


コマンド 


害式 

省略形 
機能 


用例 


⑴ list 〔く行番号1>〕〔一〔く行番号2〉〕〕 

〔1〕1. 

メモリにあるプログラムリストを ㈣ 向に表示したり、プリンタに印刷します。 

表示を開始するく行番号1 >を«略すると、プログラムリストの光頭から衣示が始ま 
り、表示を終了するくけ番号2 > を肖略すると、プログラムリストの姑後までが衣ポさ 
れます。たとえば、 

list ブログラムリストの光頭から姑後までが表示されます。 

list 50 行番号50の行のみ衣示されます。 

list 一 100 プログラムリストの光姐から100行 U までが表示されます。 
list 200— プログラムリストの200彳 flJ から lii 後までが衣//くされます。 

list の機能を一時止したいとき (^[ CTRL ； +[^]キーを押します。 H かキーを押せ 
ば、衣示を冉開します。また、 list の機能を終了したいときは、 [ BREAK 1 キー 
(または : CtKLj + ZC キー）を押します。 

list 命令の代わりに Hist 命令を用いれば、プログラムリストをプリンタに印刷すること 
ができます。 

]ist 10-200 
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LOAD 


窨式 Iload 〔@〕 "〔くドライブ沿〕くファイル名〉”〔，く行番号〉〕〔，渊分〉〕 

省略形 I 1〇. 

機能 1 指定した BASIC 7 0 ログラムをロードします。 

プログラムがロードされると、それまでメモリ上にあった ブロ グラムは消されます。 
load @ K 行番号を除いて （ save @ によって）セーブされたブログラムにく行番号〉とそ 
のく增分〉を指定（しなければともに 10) してロードします。この場合、ブログラムは、 
衍定された行番^•から、 I 能された枘分を加えた行番号を付加しながら口ードされま 
す。すでにプログラムがメモリにある場分、ロードしたプログラムが マージ （混合、追 
加）されます 0 くドライブ名〉、くファイル名〉についての詳細は、 「 Human 68 k ユーザー 
ズ マニュアル」 を参照してください。 

^ save 


用例 


1 oad ,# a : Vtest .dat 


LOCATE 


ステートメント 


害式1 locate 〇〇ゼ標〉，く丫啤榡>〔，くカーソルスイッチ〉〕 

省略形 1 loc . 

機能1 々ーソルをテキスト ㈣ 血のく X 冲:標〉、く Y 座標〉で指定されたキャラクタ哝標位策へ移 

勋します0 <»+:標〉、 〈 Ym 標〉のとリうる範 M は、スクリーンモードとスクロールエリ 
アによります。〈カーソルスイッチ〉が0のときは、カーソル衣 > j •く OFF で、1ならカー 
ソルです。 

なお、くカーソルスイッチ〉が右•効なときは、プログラムでくカーソルスイッチ〉を〇に 
して次行している間のみです。ブログラムか供了して” Ok” が表示されるとカーソル 
衣示 ON になります。 

用例 

10 /* locate sample 
20 int ai 9 bi 
30 els 

40 for ai=0 to 20 

50 locate ai*4 ， ai,l: print •• personal workstation X68000 •• 

60 locate 95-ai *4 ， ai ♦10,1:print "personal workstation X68000 •• 

70 for bi=0 to 5000 

80 next 

90 next 
100 end 
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LOG 


標準関数 


窨式」 log ( n ) 

引数 ] float 
戻り値 float 

機有 I | 数値 n の自然対数を返します。 n >0 でなければなりません。 


d 1 
e• f 


PC t tor 

m » 3 5 ti 
ai t 5 b 
s b f 1 ) 21 
• 3 1 t s r 

g i n ( 0 i 0 
oatee(af 
1 a e g e 
t o r a nr 
拿 n J c p i 0 
/ i f 3 V 1 f 


5 # a 
3 2 拿 
5 2)5) 

5 2 f 3 i 

6 5 a ft d 

• 10(5 • 
5 1• g 6 i 
5 5 0 o 拿 c 
2 51)I 

t 01-(i 
1 / 5 d b 
1 3 i 5 n ( 
5 1 b 2 r t 

• 0 m : ii e 
5 t i f i i s 
5 b a c d p 


X d 

e n 
n e 


0 o o 

12 3 


000000000000 

456789012345 


例 

用 
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MID$ 


標準関数 


•式 midS ( st . il , i 2) 

引数 str ( st ), int ( il , i 2) 

戻り値 1 str 

^ I 文卞列 st の中の^定された位策 il から指定された文字数 i 2 分の文字列を取り出して返 

します。 

st . 元の文字列（文字式） 

il . 取リ出し始める位 ! K 

\2 . 取り出したい文字数 

位; Kil および文字数 i 2 は、1から255の侦をとります。 

取り出したい文字数 i 2 が文卞列 st の取リ出し始める位; Kil からの文字数よリも大きい 
ときは、 Iftxii された位; Ki 1以降のすべての文字列を取リ出して返します。取リ出し始め 
る位; Kil が、0あるいは ft の場糾べ文字列 st の及さを越えている場作は null 文字を返 
します。取り出したい文字数 i 2 が、0または負の場合も null 文字を返します。 

4 left$、rights 

用例 10 " mid$ sample 

20 str as 

30 as = "personal workstation X68000 •• 

40 print raid$(as f 10 f 11) 

50 end 


MIRROR $ 


標準関数 




mirrorS ( st ) 

str 

str 

文卞列 st の並びを逆紅して返します。 

10 /拿 mirrorS samole 
20 str as 

30 as = ,# personai workstation X68000 
40 print mirror$(as) 

50 end 
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MOUSE 


MOUSE 


式 


mouse ( ch ) 


数 


戻り値 


char 


機.能 I マウスカーソルの表示、マウスの初期化などを行います。リ値は、 ch =3 以外で 


は、通常0、エラーのときは一1を返します, 


ch 


0ニマウスの初期化(右ボタン 1 、 V •打 . ソフトキーボード使 

1=マウスカーソルを表ボする 
2=マウスカーソルを消す 

3 =マウスカーソルの衣/以欠態を返す（衣尔している-1 、及ハ•く 


ていない…0 > 

4 =マウスの初期化(右ボタン I 用放 


ソフトキーボード使⑴ィ、 


»1) 


ac 


•• > 0 
3 - ( 
>1 \ 

--I 

r *2 M l 止さ 
->->fii»T 

i 一 状示て 
0" 示去示表し 
-> 表消表の力 
一のののド入 
化ルルルーを 
期ソソソボ« 
初一1 I 一の 
の力カカキか 
スススストれ 
ウウウウフず 


中| #| 


k k ( 
a a e 
e e s 
r r u 
k b b k 0 
a : : a k m 
c )/ ea* • 
r 12 r e M 

b ( ( b r~J 

• •ee•• b / 

)s 3 

0 u u 

(00 I 3 t 

se „; 示 

u M « 

no たた 
しし 

たまま«、 
ししし状力 
ま示去示，、力表 
し表消表スを 
をををの)ウド 
化ルルル"■マー 


表 

レ 


去し 
消に 
ル止 

ソ* 

-示 


期 

初 


ソ 


ボ 


=inntl 
の力力力 prri キ 
スススス n p 卜 
ゥゥゥゥ heen フ 
7VV vtthv 
•••#•••#0 " 
> 0 

t t t t < St 

n n n n ) ) n 
i i i i 3 3 i 


p 

m 

a 

s 


例 

用 


ママママソい acprprprpre(e(c p h r 

- » M M M M .s s : t 

h0123 u U4i 
ttt-tttc 00 w 
e )lnnnnnuteeeemmese 
SC 0 I i i i i i p i s s s s sdl 
u a ( rrrrrnwaaaaffani 
0 e e pppppi s c c c cii c eh 

d d 
n n 
e e 


m r 8 1 
a u i 


拿 hoh 

/ c m w 

000000000000000000000 
123456789012345678901 

I* 1i 11111 n 1 n 112 2 
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MSAREA 


MOUSE 


窨式 

引数 
戻り値 
機能 


msarea ( xl , yl , x 2. y 2) 


マウスカーソルの移が/* ㈤ 相を指定します。紐 I 相は表示 I 由 nfti サイズによって決まります。 
ひ^ Mift は通常0、エラーのときは一1を返します。 


xl . 始点鹏標 

yl . 始点 Y 座標 

x 2 . 終，⑽:標 

y 2 . 終点 Y 峰標 


用例 


10 /* msarea sample 
20 screen 2,0 9 1 9 1 
30 vpago( 1 ) 

40 mouse( 0 ) 

50 msarea(0 f 0 t 600 f 400) 

60 box(0 f 0,600 t 400 t 15 t &HFFFF) 

70 mouse(1) 

80 )ocate 1,5 

90 print M ( 0 t 0 ) < —— >(600,400) の ® 网で マウスを 動かして くたさい！ 
100 end 
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MSBTN 


MOUSE 



msbtn ( n , b , t ) 


char ( n , b ), int ( t ) 


マウスボタンが t 能された状態になるまでの時間を返します。 W リ W (は、0ならばド 
ラッグされたことを示し、一1ならば衍定された侍ち時 IH ] の/•人侦 t を越えたことをポ 
します。 


n . 侍つボタンの状態 

〇=ボタンか離されるまで 
1=ボタンか1中されるまで 

b . ボタンの左右 

0二左 
い右 

t . 侍ち時問の Ai 人•侦(0、1でずっと侍つ) 

状態が変わればこれはリセットされます。 


用例 


10 / * msbtn sample 

20 int ai=l t bi f ri f di,ei 9 fi 9 Kithi 9 )i 9 jitki 
30 screen 2 f 0 f 1 9 1 
40 vpage(1) 
f>0 mouse ( 0 ) 

60 msareA(0,0 t 76T f 511) 

70 box(0 t 0 f 767 f 511 f 15 f &HFFFK) 

80 mouse(1) 

90 Jocat e 5,10 

100 print •• マウスの左ボタンをダブルクリックしてくたさい。卜字の練が動きます。 

110 whiLo ai < > 0 

120 msstat(hi f ci f di f ei) 

130 if di< >-1 then continue 

14 0 firmsbtn(0 f 0 f 80) 

150 if fi<10 or fi> 70 t hen continup 

160 fi=mshtn(1 f 0 f 80) 

17 0 if fi く 10 or fi> 70 then continue 

180 fi=msbln(O f O t 80) 

190 if t % i < 10 or f i > 7 0 t hen cont i nue 

200 linr(ii f 0 f ii f 511 f 0 f &HFKFF) 

210 line(0 f ji f T67 f ji f 0 f &HFFFF) 

220 box(0, 0,76 ハ 511,15 f \HFKKF) 

230 mspos{gi,hi} 

240 tine(gi f 0 f gi ,511 f 

250 1ine(0 f hi f 767 f hi f 12.&HFFFF) 

260 ii=gi 

2 70 ji=h i 

280 pn(h、h i 丨 e 
290 enH 
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第 4 章リファレンス 


/拿 mspos sample 
int ai= 1 f bi f ci 
screen 2 9 0 9 1 f 1 
vpage ⑴ 
mouse(0) 

maarea(0 f 0 f 767 f 511) 
box<0,0,767 t 511,15 f AHFFFF) 
mouse(1) 
locate 10,10 t 0 

print "move mouse cursor!(0,0)< ->(767,51 

while ai<>0 

mspos(bi 9 ci) 
locate 10,11,0 

print "mouse cursor (X) = ";bi 
locate 10,12,0 


• t 


" 


mouse cursor (Y) 


•• 


；c 


endwhile 
end 


MSPOS 


MOUSE 


式 


mspos ( x . y > 


引数 


intS 変数名 


戻り値 


機能 


マウスカーソルの座標を int5? 変 ftx 、 y に返します。 


000000000000000000 

123456789012345678 

1111 11 n 1 1 


例 

用 
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MSSTAT 


MOUSE 


害式 

引数 
戻り値 



msstat ( x , y , bl , br ) 
int ” 変数 Z 


マウスの状態を int ?! 変数 x 、 y 、 bl 、 br : こ返します。 

x . X 方向の相対移射麻;(一128〜 127) 

y . Y 方向の相対移_ (一 128-127) 

bl . 左ボタンの状態(押されていれば一1、押されていなければ0を返 

す） 

br . 右ボタンの状態(押されていれば一1、押されていなければ0を返 

す） 


用例 

10 ft msstat sa.nple 
20 int ai=1 f bi f ci f di f pi 
30 screen 2•0,1•1 
40 vpage(1) 

5C mouse(0) 

60 msarea(0 f 0,767 f 511) 

70 box(0 f 0 f 767 t 511 t 15 f &HFFFF) 

80 mouse{1) 

90 1ocate 7 f 10 # 0 

100 print •• 《 0,0 767,511 > の範阕でマウスを動かしてください！ 

110 while ai <>0 

120 msstat(bi f ci f di,ei) 

130 locate 7.11,0 

140 print 1 • マウスの X 方向の相対格動置い 1 28--- 127 >---> ";bi 

150 locate 7,12,0 

160 print •• マウスの Y 方向の相対移勛置卜 128-—127 > —- > ";ci 

170 locate 7 f 13,0 

180 print " マウスの左ボタンの状®---〉 ••； 







第 4 章リファレンス 


M ALLOC 


MUSIC 




m alloc ( t . s ) 
char ( t ) . int ( s ) 


指) ii されたトラック t のトラックバッファを確保します。 


トラック番号 (1 〜 80) 


s . バッファサイ ズ （1 〜6553 6) 


令トラックバッファ内のデータはクリアされます。 

また、バッファサイズに1〜3を指定しても、 •! 八イト確保します。 

t を n 略すると、すべてのトラックをバッファサイ xsvmv ： します0 

なお、総トラックの八ッファサイズ（それぞれのトラックに•別り A てられているトラ 

ックバッファの総介 /fh は、 CONFIG.SYS ファイル内で衍定してください。 

DEVICE = ¥ SYS ¥ OPMDRV 3 .X Snnn 

(nnn :総トラックバッファサイズ [ m ： f . : KB ]) 
/乂リ侦として、 iK 常のときは0、エラーのときは一1を返します。 


M ANTOFF 


MUSIC3 



m 一 antoff ( c ) 
char 


定のチャンネル c へオールノー トオフを出力します。 


c . チャンネル番号 (1 〜25> 


C が W 略された場合、すべてのチャンネルへオールノー トオフを出力します 0 
戻リ侦として、正常のときは0、エラーのときは一1を返します。 
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M ASSIGN 


MUSIC 



m _ assign ( c , t ) 

char 

int 

指定のチャンネル c で使川するトラック t を設定します。 

c . チャンネル番号 (1 〜 25) 

t . トラック番号 (1 〜80> 


また、 t か 7 T 略された垛介は、チャンネル c に設定されている ト ラック 浴り •を返します0 
腿のチャンネルに M —の ト ラックを別 リ あてると、それぞれ M じ楽讲 データ を猶 
します。また、夜数の ト ラックを1つのチャンネルに別リあてると、 ム i も新しく•別り 
ふられた ト ラックの楽 沸データ を演备します。 

デフォルトちは、チャンネル1〜8が、それぞれトラック1〜8に対らします0 
W •リ侦として、ポ常のときは0、エラーのときは一1を返します。 


M BEND 


MUSIC 3 



m bend ( c . b ) 

char 

int 

1行定のチャンネルのピッチベンドを没定します〇 

c . チャンネル番号 (1 〜 25) 

b . ピッチベンドデータ （0 〜127) 


c か"/?略された場公は、すべてのチャンネルにピッチベンド b を設定します 0 b は朽略で 
きません。 

«リ値として、正常のときは0、エラーのときは一1を返します。 
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第 4 章リファレンス 


M CHAN 


MUSIC 3 



m _ chan(cl . c 2) 

char 

int 

指定のチャンネルのデータ出カチャンネルを一時的に変史します。 

cl . チャンネル番号 (1 〜25> 

c 2 . 出カチャンネル番号 (1 〜25> 


c2 が竹略された場合は、祝在の設定侦を返します。 

m.assign 閲数や MML データ @N とは輿なリ、チャンネル殳史响•のパラメータ（トラ 
ック潘け、汉色{&り、ボリュームなど）を引き桃ぎます。 
m jnitlW 数次:行まで钉効です。 

戾リ侦として、正常のときは 0、 エラー のときは一 1 を返します。 


- ♦ m init 


M CONT 


MUSIC 


窨式 m cont ([ cl ][. c 2][. c 3][. c 4][. c 5][. c 6] L . c 7][, c 8]) 

引数 1 char 
戻り値 1 int 

機能 1 cl から c8 で衍定されたチャンネルにおいて、一札料?•止した演葵を m ) します0 

c 卜 c 8 ……チヤンネル番号 （1 〜2» 

cl から c8 をすべて«略すると、祝在一時停止しているすべてのチャンネルの演奏を# 
間します。 

戾リ侦として、正常のときは0、エラーのときは一1を返します。 


m stop 
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M CTR し RES 


MUSIC 3 



m . ctrlres ( c ) 

char 


指定のチャンネルピッチベンドオフ/モジュレーシヨンオフ/ダンハ 0 —オフ/オー 
ルノートオフを出力します 0 


c . チャンネル} & v ( l 〜 25) 


c が竹略された場介、すべてのチャンネルへピッチベンドオフ/モジュレーションオフ/ 
ダンハ。ーオフ/オールノー トオフを出力します〇 
W リ flft として、正常のときは0、エラーのときは一1を返します0 


M DIROUT 


MUSIC 3 



m . airoutdng . ca ) 

int ( lng ) , char 5? 一次尤 ftd 列 Z ( ca > 

int 

lng バイトの MIDI データを MIDI へ出力します。 

lng . lnW ) とリうる侦は1から列名 ca で宣言された配列の添卞+1まで 

です/ 

ca . MIDI データを格納している char 型一次元配列名 


m out 
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第 4 章リファレンス 


MUSIC 3 


M END 



m end ( m ) 


nt 


int 

演务を止する小を設定します。 

m . 演奏を屮止する小節番号 

すべてのチャンネルの” I : ”、” D . S ”、” D . C ”、” ：1 ”などの位 K が問じでないと正常 
な沾谷ができません。 

/乂リ虮として、止笊のときは0、エラーのときは一1を返します。 


^ m—start 


M ERRGET 


MUSIC 3 




m err^etO 


泊:前の MUSICIW 数のエラーコードを返します。 

正常終了している場公は0を返し、エラーの場介は1〜65のエラーコードを返します。 
エラーコードについては、「資字保エラーコード」段」を参照してください。 
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M FREE 


MUSIC 




mjree ( t ) 

char 

int 

fit 定のトラック t のトラックハへ y ファの残リノくイト数を返します。 

t . トラック番号 (1 〜 80) 

-♦ nLfreea 、 m—use 


M FREEA 


MUSIC 3 




機能 


m freeaO 


ドライノ、♦起動時に確保したトラックバッファの仝バイト数を返します。 


- ♦ m free、m use 


MJFCHK 


MUSIC 3 



m ifchkO 


MIDI インターフヱイスの心無をチヱックします。 

インターフェイスがつながっている塲合は0、つながっていない垛作は一1を返しま 
す。 
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M INIT 


MUSIC 




m — init ( md ) 
chanmd ) 


トラックハへソファを初期化します。各トラックバッファは4バイトに設定されます。 
また、各チャンネルのパラメータ（トラック番ゆ、荇色忝け、ボリュームなど）も初 
期化されます 。 

md に1を指定した場作、 FM / V •源の/ V 色データも初期化します。 
md に〇を设定または竹略した叫令は、疗色データは初期化しません。 


md . 初期化モード 

0 =トラックハ'•ノファの 初期{匕 
1 ニ トラック バッファ、 / V •色 データの 初期化 


M MDREG 


MUSIC3 



m mdreK ( gr . adr . dt ) 


char 


MIDI 制御 IC ( YM 3802) のレジスタにを丹き込みます。 gr にはグルーブナンバー、 
adr にはアドレスナンバーを指定します 0 也にはレジスタにメ!••き込む飢を〇〜255の範 
M で指定します。 

戾リ飢として、 il : •常のときは0、エラーのときは一1を返します。 


注:問速ったパラメータを指定すると、システムが正常に勒作しなくなる場合があり 
ます。 

YM 3802の機能を I •分に坪科の I •.でご使川ください。 
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M MEAS 


MUSIC3 





m—measO 


祝在演#中の小節？を返します。 

MML データ” I : ”、” D . S .” などのくり返し記号の場合は、くり返し1"1数がそのまま 
加»されますので、火際の小節 Sv とは異なる坳作があリます。 


m end、m start 


M METER 


MUSIC3 



m _ meter ( n . d ) 

char 

int 

曲の拍子を設定します。 

n . 分， （2 〜 16) 

d . (2.4.8.16) 


デフォルト肮は4/4柏/•に設定されています0 
W リ W (として、正常のときは0、エラーのときは一1を返します。 
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M MOD 


MUSIC3 




戻り値 



m mod ( c . m ) 
char 


衍定のチヤンネル c のモジュレーシヨンを ui 定します。 


c . チャンネル番号 (1 〜 25) 

m . モジュレーションデータ （0 〜127) 


c が竹略さ iL た堝〇は、すべてのチャンネルにモジュレーション m を以定します0 
〇1は«略できません。 

ひ::リ W (として、 il : 常のとさは(）、エラーのとさは一1を迟します。 


- ♦ m modsns 


M MODSNS 


MUSIC3 



m modsnsun ) 

char 

int 

FM 斤源令体のモジュレーションの深さを設定します。 

m . モジュレーションの深さ （0 〜127) 

m が竹略された垛介は、祝在•の設定 M を返します。 

«リ侦として、止常のときは0、エラーのときは一1を返します。 


1 m mod 
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M MSTVO し 


MUSIC3 



m _ mstvol ( vol ) 

char 



マスターボリュームを設定します。 


vol . ボリュームデータ （0 〜 127) 

デフォルト侦は127 


vol が竹略された坳介、祝在の設定侦を返します。 
mjnit 間数を戈行するまで有効です。 

PCM の チ ヤン ネルに対しては無効です。 

员リ侦として、正常のときは0、エラーのときは一1を返します。 
—m init、m vol 


M MUTE 



し戻り値 I 


機有 g 


m _ mute ([ cl ][, c 2] [ . c 3] [ . c 4 J [ . c 5] ； . c 6] [ . c 7] [ , c 8]) 

char 

int 

cl から c 8 で衍定したチャンネルの音•をミュート ( iftA 1 ) します。 
ノー ト以外のデータは常に出力されます。 

cl 〜 c 8. チャンネル番号 (1 〜 25) 

cl から c 8 を朽略すると、ミュートが W - 除されます。 

戾リ侦として、正常のときは0、エラーのときは一1を返します。 


-♦ m solo 


MUSIC3 
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第 4 章リファレンス 


M NTOFF 



m 一 ntoff ( c . nt . vel ) 
char 


指•定のチヤンネルへノートオフを出力します。 


c . チヤンネル番号 (1 〜 25) 

nt . ノート番号 (0 〜 127) 

vel . ベロシティデータ (0-127) 


vel が朽略された場合、ベロシティ値を64で出力します。 

以リ fift として、正常のときは0、エラーのときは一1を返します。 


^ m.nton 


M NTON 



m ^ ntomc . nt . vel ) 


char 

int 

fit 定のチヤンネルへノー トオンを出力します0 


c . チヤンネル番号 (1 〜25> 

nt . ノート番号 (0 〜 127) 

vel . ベロシティデータ（〇〜 127) 


vel が竹略された場介、ベロシティ侦を64で出力します。 

/乂:リ侦として、 ili 常のときは0、エラーのときは一1を返します。 


m ntoff 


MUSIC 3 


MUSIC 3 
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M OPMEXC 


MUSIC3 



m ^ opmexc ( md ) 

char 


FM 音源にセットする音色パラメータのうち、 LFQ / PMD / AMD などの全体に杉壤す 
るパラメータを音色切り锊え時にセットするかどうかを選択します。 


md . パラメータの設定スイッチ 

0=セットしない 

1=セットする（デフォルト値は 


md が竹略された場介、祝在の状態を返します。 

戾リ侦として、正常のときは 0、 エラーのときは 一 1 を返します。 


m vset 


M OPM し FQ 


MUSIC3 




m . opmlfq ( spd ) 

char 


の LFCXO 発报版皮数（スピード）を没定します。 
spd . スピード （ 0〜255、デフォルト娥は198) 


spd が«略された場合、祝在のデータを返します。 

戾リ飢として、正常のときは0、エラーのときは一1を返します。 
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M OPMREG 



m opmreK ^ re ^. data ) 


char 


I 行定の OPM レジスタにデータをセットします。 


reg .0 PM レジスタ番号 (0 〜255) 

data …… 0 PM へ於き込むデータ 


data か略された垛〇、祝作の reg で / J •くす OPM レジスタの内括を返します。 
一度も衍定のレジスタが丹き換えられていない場介は、一1を返します。 

W リ fift として、正常のときは0、エラーのときは一1を返します。 


M OUT 



m ouUdata ) 
char 


1 バイトデータを MIDI へ出力します。 


data …… MIDI データ (0 〜 255) 


戾リ侦として、正常のときは0、エラーのときは一1を返します。 


， m dirout 


MUSIC3 


MUSIC3 
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M PAN 


MUSIC 3 


書式 m _ pan ( c . pan ) 


引数 char 


戻り値 


機能 


指定のチヤンネル c にパンポット pan を设定します。 

c . チヤンネル番兮(1〜 25) 

pan . パンポットデータ (0 〜127〉 

デフォルト値は64 
0=ライト Ui •端〉 


64 =センター（中央) 


127=レフト （ A : 端） 

c が朽略された^>は、すべてのチャンネルに pan を设定します。 
pan が V ?略された垛介は、祝在•の設定 W (を返します。 

W リ fift として、 丨1:. 常のときは0、 エラーの ときは一 1 を返します。 
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M PANF し T 


MUSIC3 



m_panflt(c,md) 


char 


MML データの PAN の切リ行えコマンド Pn を、演•餐時に出力するかどうかを選択しま 
す0 


c. チャンネル番号 (1 〜 25> 

md.0 = Pn を出力する • 

l = Pn を出力しない 

c が 朽卟された埸作は、すべての チャンネルに md を汶定します0 
md が竹略された場介は、祝在の設定 fift を返します。 

W •リ侦として、正常のときは0、エラーのときは一1を返します。 

—m pgmflt.m volflt 


M PCMBSY 


MUSIC3 




機能 


m pcmbsyO 


PCM の次 : i i ■状態を凋べます。 


&H00 ： 何も実行していない 

& H02 : 出力屮 (ADPCMOUT.m_pcmon,a_play を次:行中) 
&H04 ： 入力中 (ADPCMINP,m_pcmrec,a_rec を実行中) 
&H12 ： 出力屮 (ADPCMAOT を実行中) 

&H14 : 入力中 (ADPCMAIN を実行中) 

&H22 : 出力中 (ADPCMLOT を実行中) 

&H24 ： 入力中 (ADPCMLIN を実行中) 
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M PCMCLR 


MUSIC3 



m^pcmclrO 

| 引数 | int 

["機能 | PCM - ぐ y ファをクリアします0 

m _ pcmset 叫数などで分鉍した PCM データが失われます。 

纪リ侦として、止常のときは0、エラーのときは一1を返します。 


M PCMGET 


MUSIC3 




m . pcmget ( nt , ca ) 

char ( nt ) . char ” 一次尤 fii ! 列名 ( ca > 

int 

されている PCM データを ca に说み込みます。 
nt . ノート番号 

ca . PCM データバッファを格納するための charW 一次尤 fk ! 列名 

戾として、正常のときは 0、 エラーのときは 一 1 を返します。 

-♦ m _ pcmlen 、 m.pcmset 
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第 4 章リファレンス 


M PCM し EN 



m pcmlen ( nt ) 
char 


ノート SVnt に分鉍されている PCM データのサイズを返します。 


nt . ノート沿り (0 〜 127) 


nt を«略すると、 PCM ノ<ッファの残り容馕を返します。 

以リ侦として、正常のときは0、エラーのときは一1を返します。 


m pcmset、m pcm^et 


MUSIC3 
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M PCMON 


MUSIC 3 




m _ pcmon ( nt . sf . md ) 

char 


指定された PCM データを#中します。 


nt . ノート番号(0~127> 

sf . サンプリング周波数 

0…… 3.9 kHz 
1…… 5.2 kHz 
2…… 7.8 kHz 
3…… 10.4 kHz 
4…… 15.6 kHz 

{ V •声を押ケ:する場介、 Ki 則として m pcmrec ⑼数で録作したときの 
サンプリング問波数 sf を使用してください。 

それ以外を使⑴すると、鉍 fi ■•した? W を止常に與卞できません。 

md . 汽•声出カモード（オーディオ出力端〇 

1……左 
2……右 

3……ステレオ（ゾ上も ㈣ か 

sf 、 md がれ略された場介は、 sf =4 nid =3 で押4:します。 

戻り攸として、正常のときは 0、 エラーのときは 一 1 を返します。 


m _ pcmrec、m pcmset 


用例 100 /*pcm sample 

-110 int ai 

130 dim char aca(24575) 

140 ai-fopen( W B ： ¥SAMPLEYsample.PCM w . w r w ) 
150 f r ead(aca, 24576 . a i) 

160 f c1osc(a i) 

170 m_pcmset(3 ， 4 ， 24576,aca) 

180 m_pcmon(3) 













第 4 華リファレンス 


M PCMREC 


MUSIC3 




m_pcmrec ( sf , lng . ca ) 

char ( sf ) . int ( lng ) . char 型一次:; lifid 列名 ( ca > 

int 

外部入力迕（オーディオ入力端子）を PCMS * 昔します。 

英行敗後に入力待ちになり、約4秒以内に入力がなければ実行を中止します。 


sf . サンプリング周波数 

0…… 3.9 kHz (1 秒間に消货するメモリサイズ1950バイト) 

1…… 5.2 kHz (1 秒間に消货するメモリサイズ2600バイト) 

2…… 7.8 kHz (1 秒間に消»するメモリサイズ3900バイト) 

3…… 10.4 kHz (1 秒問に消費するメモリサイズ5200バイト> 

4…… 15.6 kHz (1 秒181に消贽するメモリサイズ7800バイト> 

lng . 緑? Y する ft ! 列 ca の添字0からの妓さ（故人=32767> 

lng のとりうる侦は、1から、配列名 ca で宣言された配列の添字+1 
までです。 

ca . PCM を格納する char 型一次元 ftd 列名 

lng を打略すると、すべての PCM データを録します。 

W リ侦として、正常のときは0、エラーのときは一1を返します。 

- ♦ nvpcmon 、 m—pcmset 
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M PCMSET 


MUSIC3 



m pcmset ( nt . sf . lng . ca ) 

char ( nt . sf ) . int ( lng )、 char ! V ! —次尤配列名 （ ca > 

int 

指定の许程に PCM 音をします。 

衍定できる fV •程は’02’⑼から’ GS 8’(127> までです。 


nt . ノート番号 (0~ 127) 

sf . サンプリング棚皮数 

0…… 3.9 kHz 
1…… 5.2 kHz 
2…… 7.8 kHz 
3…… 10.4 kHz 
4…… 15.6 kHz 

Ing . 位録する配列 ca の添字 0 からの長さ (Ai 大 =32767) 

Ing のとりうる侦は、 1 から、 ftd 列名 ca で宣言された配列の添字+ 1 
までです。 

ca . PCM データが格納されている一次尤配列名 


戻リ侦として、正常のときは0、エラーのときは一1を返します。 


-♦ m _ pcmget 、 m _ pcmlen 、 m _ pcmon 、 m_pcmrec 


用例 100 /*pcm sample 

- 1 110 int ai 

130 dim char aca (20000) 

140 ai-fopen("B ： ¥SAMPLE¥samplc.PCM w ."r w ) 
150 f read(aca, 20000 ,ai) 

160 f c 1ose (a i) 

170 m_pcmset(3,4,20000,aca) 

180 m_pcmon(3) 
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M PGMF し T 


MUSIC3 



mp ^ mfluc . md ) 


char 


MML データの斤色の切リ行えコマンド® n を、指定チャンネルの演你^に出力するか 
どうかを逸ネ尺します。 


c . チャンネル番号 (1 〜25> 

md . 0= @ n を出力する 

l = @ n を出力しない 


c * がれ略された垛介は、すべてのチャンネルに md を设定します0 
md が ft 略された場介は、祝在の設定侦を返します。 

W リ M として、正常のときは0、エラーのときは一1を返します。 


—m panflt、m volflt 


M PLAY 


MUSIC 




し戻り値 I 



m play ([ cl ][. c 2][, c 3][. c 4 j [, c 5 j [. c 6 j [, c 7][. c 8]) 
char 


cl 〜 c 8 でぶされたチャンネルに•別り A てられたトラックの楽锵データを演葵します。 
cl 〜〇8……チャンネル番号 (1 〜 25) 


cl 〜 c 8 をすべて Vt 略すると、全チャンネルを潢务します。 

/乂リ侦として、 jK 常のときは0、エラーのときは一1を返します。 


用例 10 /% MUSIC SAMPLE 

- 20 ハ 

30 /* SYMPHONIA N0.14 in Bb major J.S BACH 
40 /拿 

50 str A$[2551 
60 /t PART 1 
70 m_init( } 

80 for 1 =1 to 6 : m_alloc(I f 2000)：next 
90 for 1=1 to 6 : m—assign(I•I):next 
100 /t _ 

110 m^trk(1 f M Q7 @34 V9 04 T66 ,f ) ハ TRUMPET 
120 m trk(2 f t# Q7 Q35 V10 04 f# ) /* HORN 


180 








130 

m 

trk( 3 t 

,f Q7 

©37 

V10 

03 ,# ) 

/拿 TUBA 

140 

m 一 

.trk(4 f 

M Q8 

@6 

V8 

05 ••) 

It CEMBALO 

150 

m 

trk(5, 

,f Q8 

@6 

V8 

05 

ft CEMBALO 

160 

m 

trk(6 t 

M Q8 

@6 

V8 

04 f# ) 

/t CEMBALO 


170 /* PART 1 

180 A$ = I# L16 B-4&B-B-AGF8G8DE-F8 : <R8F8AFE-DC>B-8<D8>AB-<C8 
190 A$ = A$ + i, >F<FD>B-<E-8G8&GE-C>A&A8<F8 : D4E4F8>B-4A8 M 
200 TRK_WRT ⑴： TRK_WRT(4> 

210 /* FART 2 

220 A$ = M L16R1 : >B-FB-<DC8E-8&E-8DE (FEFEFEFE) 8 &ED32E32 11 
230 A$=AS-f ## P'4G8B-8E-8G8<C8C8& : C>FB-<D>G8B-8A8DE-FGE-F M 
240 TRK^WRT(2)：TRK^WRT(5) 

250 /* PART 3 

260 A$= "L8 B-<DC>B-AGFE- : D4F4G4<C4 M 

270 A$=A$ + i# D4&L16DD>B-G<C8E-8&E-C>AF : B-4&B-B-AGF8G8DE-F8 M 
280 TRK^WRT(3)：TRK^WRT(6) 

290 m_play(> 

300 end 

310 func TRK^WRT(T) 

320 m_trk(T f AS) 

330 endfunc 


M PNMGET MUSIC3 


pnmget ( nt ) 
har 
tr 

-MS 兮 nt に « 鉍されている PCM の fY 色名を取料します。 
nt 


m pnmset 


ノート沿 1 ，〉 (0 〜 127) 



第 4 章リファレンス 


M PNMSET 



m . pnmsetvnt . pn ) 
charuit ) . stripn ) 
int 

ノー ト} T ， Jnt に PCM の斤色名をび i * します（半灼10文字以内)。 

nt . ノート番号 (0 〜127> 

pn . PCM の音色名 

ひ5リ侦として、ル:常のときは0、エラーのときは一1を返します。 


m.pnmget 


M PROG 


窨式丨 m _ prog ( c . p ) 

引数 1 char 
戻り値 」 int 

Si 1 指定のチャンネル c に汗色 S リ *p で / j; • される ?V 色を設定します。 

c . チャンネル番兮 (1 〜25> 

P . 色番号 (FM 音源は卜200、 MIDI は 1 〜128〉 

c が VT 略された垛介は、すべてのチ十ンネルに vo を設定します c 
P が朽略された場ひは、祝作•の設定侦を返します。 

W リ飢として、常のときは0、エラーのときは一1を返します。 


MUSIC3 


MUSIC3 
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M SNDSET 


MUSIC 3 



m . sndset ( ca ) 
cha . —次元配列 ( ca > 


SOUND PRO 68 K の SND ファイル形八のデータを FMrt •源 111 のデータと して ifM し 
ます。 

1 啡ネに茂色名もび鉍します。 

ca . SND ファイル形 A のデータ 

1音色80バィトで缺大200荇色 (=16000 バイト）まで指定できます。 

/乂リ肌として、 il : 常のときは0、エラーのときは一1を返します。 


M SOLO 


MUSIC 3 



m _ solo ^ c ) 

char 

int 

指定されたチャンネル ciU 外のすべての； V をミュートします。 

c . チャンネル番号 (1 〜 25) 

(：を«略すると W •除されます。 

戾リ侦として、正常のときは0、エラーのときは一1を返します。 


—m mute 
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章リファレンス 


.START music3 

F 式 m . start ( m ) 

引数 | int 
戻り値 int 

機有を 1 沽券を開始する小節を設定します。 

m . 演奏を開始する小節番兮 

in playlW 数を次:行することにより、小節 S り - m の小節よリ演务を間始します。すべて 
のチャンネルの MML データ“ | : “ D . S .”、“ D . C .”、 “ ： | ”などの数や位: S が同じ 

でないと il : 常な演奏ができません(一度設定された小節番けは、演务が終わるとクリ 
アされます)。 

W リ侦として、のときは0、エラーのときは一1を返します。 

"♦ m — end 、 m _ meas、m play 



M STAT 


MUSIC 



m _ stat ( c ) 

char 


指定のチャンネルが演奏中なら 1 を、停止中なら0を返します。 


c . チャンネル番号 (1 〜 25) 


c が朽略された場介は、すべてのチャンネルの状態を bit 0〜24に返します。 

bitO 〜 24 がチャンネル1〜 25 に対応しています0それぞれの bit が 0 ならばぬ I •.中、 1 

ならば演葵中です。 


用例 


10 /拿 m stat sample 
20 m_init() 

30 m alloc(1 9 1 000 ) 
40 m alloc(2, 1000) 


50 m assign(2 9 


60 m_ass 
70 m ass 


80 

m 

trk(1 •， 

•112 

90 

m 

trk(1 

• 

100 

m 

■ trkU 


110 

m 

trk(2/ 

•14 


gn(3 f 1) 
gn(4,2) 



rr 


rfgrggrgfrefrge3 
rge3 

rrrrrrrr M ) 


e3 

e3 


ri? 

rr 


120 m_play(1 f 4) 

130 while m stat(4 


140 endwhile 
150 m—play(2,4> 

160 while m_stat(4) 
170 endwhile 
180 m play(3,4) 

190 end 
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第 4 章リファレンス 


M STOP 



m . stop ([ cl ] [, c 2][, c 3][, c 4] [ , c 5] [ , c 6] [ . c 7] [ , c 8]) 
char 


cl 〜 c 8 で指定されたチャンネルの演奏を一時停止します。 
cl 〜 c 8 ……チャンネル番号 (1 〜25> 


チャンネルをすべて肖略すると、全チャンネルの演奏を一時停止します。 
戻り値として、正常のときは0、エラーのときは一1を返します。 


m cont 


用例 10 ハ 

20 /• music sample 

30 /* " おお、スザンナ ：：" S.C-Foster 

40 /拿 

50 8 1r as ， bs.cs ， ds,parti 2551 
60 m init() 

70 m_alloc(1 ,2000) 

BO m_aRsign(1,1) 

90linput •• 音色データの番号を入力して T さい < 1 〜 68} ——>? 
100 linput 1 • テンポを人力してください（ 32、200 >••->?•• ;bs 
110 part = ”Q"+as + " 〇 4 v9 q7 116“ + " t ## + bs 
120 wr_trk(part) 

130 parts. g&a b8<d8d8e8> <d8>b8g8.a b8b8a8g8 a4 tgaA 11 
140 wr trk(part) 

150 part = t# b8<d8d8-e> <d8>b8g8.a& b8b8a8a8 
1 B 0 wr_t rk(part) 

1 70 part = f# b8<d8d8.e> <d8>b8g8.a b8b8aHg8 a4r8ga& M 
180 wr trk(part) 

】90 part= M h8<d8d8o8> <d8.>b^8.a bb8.a8.a g4r4 M 
200 wr^trk ( part.) 

210 part= M <c4c4> <e8e4e8> <d8.d>b8g8 a4r8ga& M 
220 wr_trk(part) 

^30 part = ff h8<d8d8.e> <d8>b8g8a8 b8b8a8.a ^4r8 M 
240 wr_ trk(part) 

250 m_play(} 

260linput •• 演奏を止しますかく y/n> —— >? ## ；cs 
270 if cs=..n" then end 
280 m_stop() 

290 linput "演奏を冉閣しますかく y/n> —— >? M ;ds 
300 i f ds= .y" then m cont() 

310 end 

320 func wr^trk(part ； str) 

330 trK (1,par" 

340 enclfunc: 


MUSIC 


;as 
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M SYNC 


MUSIC3 



m sync ( c ) 


char ( vo ) 


| HJ 期モードを定します。 
| iij 期モード 


c . 0 内部の MIDI クロックに合わせて演# 

1外部の MIDI クロックにひわせて演务 
2 外部の FSK クロックに介わせて浈务 


外部 M 期にする場公は、 m _ sync ⑴火行後 m _ playl « l 数で待機状態になリ MIDI のス 
タートコマンド ( SFA > を作ちます。 
c を朽略すると、祝在の状態を返します。 

戾リ侦として、 A 常のときは0、エラーのときは一1を返します。 


M SYSCH 


MUSIC3 



m . sysch ( cm ) 

str 

int 

fHV 源に対するチャンネル S •づ•の割リ当てを変史します0 
( ドライバ組み込み時のオプションスイッチと同じ〉 


cm .? VS ■•淞のチャンネルの別リ当てを示す文字列 

” OI ) M ”. OPM = ch 卜8 PCM = ch 9 MIDI 二 chlO 〜25 

” OMP ”. OPM = ch 卜8 MlDI = ch 9 〜 24 PCM = ch 25 

” MOP ”. MIDI = ch 卜 16 OPM = chl 7 〜 24 FCM = ch 25 

” MPO ”. MIDl=ch 卜 16 FCM = chl 7 OPM - こ chl 8 〜 25 

” POM ”. PCM=chl OPM = ch 2 〜9 MIDI = chlO 〜 25 

” PMO ”. PCM 二 chi MIDI = ch 2 〜17 OPM = chl 8 〜 25 


cm を朽略した場公は、祝在のモードを数値で返します。 

(0 二” OPM ”、 l 二” OMP ”、2 = ” MOP ”、3=” MPO ”、4 = ” POM ”、5=” PMO ”) 
戻り値として、正常のときは 0、 エラーのときは一 1 を返します。 
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章リファレンス 


/拿 m tempo sample 

/* " おお、スザンナ ！：" S.C.Foster 



char ac 

st r as•parti 255| 
m i n i t () 
m alloc(1 ,2000) 
massiKn(1 9 )) 

» input M & 色デークの # 号を人力して下さい （ 1〜68 as 

input •• テンポを人力してください （ 32 〜 200)— ac 
part = M @"+as + M 〇 4 v9 q7 J 16 ,# 
wr trk(part ) 

part •:: "g&a b8<d8d8e8> <d8>b8g8.a b8b8a8g8 a4.ga& M 
wr. t rk ( part) 

partr • # b8<d8d8 .e> <d8>b8^8 .aA b8b8a8a8 g4.ga& •’ 
wr _trk < part) 

part = if b8<d8d8.e> <d8>b8«8.a b8b8a8g8 a4r8ga& M 
wr^trk(part) 

part = M b8<d8d8e8> ， d8 • > bg8 • a bb8 • a8 • a «4r4 •• 
wr. t rk ( part) 

part = ## <c4c4> <e8e4e8> <d8.d>b8«8 a4r8ga& M 
wr t rk ( part.) 

part= M b8<d8d8.e> <d8>b8g8a8 b8b8a8.a «4r8 ,f 
wr trk(part) 
m_play() 

for ai=0 to 30000: next 
m tempo(ac) 

for ai=0 to 40000: next 

m ^tempo(J 20) 

end 

func wr trk(part ； str) 
m trk( 1 ,part) 
endf unc 


TEMPO 


MUSIC 


書式」 m _ tempo ( te ) 
引数 | int 
戻り値 1 int 
機能]テンポ te を 1 う) 


int 

テンポ te を1分 IKI に4分 g 符を何|"1打つかで指定します。 
テンポは、20〜300の範 M です(デフォルト値は120>〇 
te が VT 略された垛介は、祝在のテンポを返します。 

リ M として、 il : . 常のときは0、エラーのときは一1を返します< 





M TNMGET 


MUSIC3 




mjnmget ( vo ) 

char 

str 

ft 色 S で示される ft •色データにび録されている ft 色名を取价します。 
vo . 音色番号 (1 〜20(» 

戾リ侦として汉色名を i す义卞列を返します （ t •角で10义卞以内)。 

—m tnmset 


M TNMSET 



mjnmset ( vo . tn ) 
char ( vo ) . str ( tn ) 
int 

ft 色沿 Vj * vo で//くされる ft 色データに A •色名を兑緣します。 

vo . 皆色番号 (1 〜200) 

tn . f 色名を示す文字列(半角10文字以内) 

W リ W (として、 il : 常のときは0、エラーのときは一1を返します。 


m . tnmset 


MUSIC3 
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第 4 章リファレンス 


M TRK 


MUSIC 



m _ trk ( t . st ) 
char ( t ) . str ( st ) 
int 

MML による楽讲データをトラック t に乃き込みます。敍密にいうとトラック t に浆辨デ 
ータを ill 加していきます。 


t . トラック番号 (1 〜80> 

st . MML (ミュージックマクロランゲージ）データ 

MML データの終端は、ヌル文字（0> です。 

ひ::リ飢として、のとさは0、エラーのときは一1を返します《 


M TRNS 


MUSIC3 


書式丨 mjrns ( c . stp ) 

引数1 char 
戻り値 1 int 

m 811 指定のチャンネル c の作程をシフトします（半 /V •ごとに± 2オクターブの範 M ) 。 

stp が竹略された叫•介は、祝在の設定値を返します。 

c . チャンネル sy * 

stp . を移调するデータ (0 〜48> 

デフォルト W (は24 

0で一 2オクターブ、48で+2オクターブ 

c が VT 略された堝〇は、すべてのチャンネルに stp を設定します。 

W リ侦として、 iK 常のときは0、エラーのときは一1を返します。 
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M USE 


MUSIC 3 



m — use ( t ) 


char 


指定のトラックバッファ t の使用容狱を返します。 
t . トラック〜80> 


t を省略した場合は、すべてのトラックバッファの合計使用容谀を返します。 
戻リ值として、正常のときは0、エラーのときは一1を返します。 


M VEL 


MUSIC 3 



m ^ vehc . vel ) 

char 

int 

衍定のチャンネ ル C のべ ロシティを没定します 0 

c . チャンネル番号 (1 〜 25) 

vel . ベロ シティ データ (0-127) 


c が竹略された坳分は、すべてのチャンネルに vel を設定します。 
vel が VT 略された場令は、祝在の設定侦を返します。 

戻リ値として、正常のときは0、エラーのときは一1を返します。 


191 








章リファレンス 


VGET 

_ 害式 | m vget(voxa) 

["引数1 char(vo) .char” 二次元 (4 •10) 配列名 (ca> 

f 戻り値 I int 

機能1 /V 色データを配列 ca に説み込みます。 

vo .fV 色 Sv(l 〜 200) 

ca . 片色データを刪するための char 切二次ノ C 配列名 

ft 列の次元は、 (4,10) 

戾リ侦として、正常のときは0、エラーのときは一1を返します。 
-♦ m vset 


てください （ 1 〜 68> 
のデータです " 


_用例 


10 ft in vget sample 
20 int aiibi 
30 char ac 

40 dim char aca(4,10) 

50 input 色データの 番号を入力 
60 els 

70 print " 3 色データの 番号 （ ” ； ac; 
H0 print. 

90 m vget(ac,aca) 

100 for ai=0 to10 
110 print. 

120 for bi=0 to 4 

130 print us ins 霧 ## •• : aca( b 


150 next 
! 60 end 




M—VO し 


MUSIC3 



m_vol(c,vol) 

char 

int 

指定のチャンネル c にボリューム vol を設定します 0 

c . チャンネル番号 （1 〜 2® 

vol. ボリュームデータ （ 0 〜 127) 


c がれ略された垛介は、すべてのチャンネルに vol を设定します。 
vol が竹略された場作は、祝在の設定値を返します。 

戾リ飢として、正常のときは0、エラーのときは一1を返します。 


-♦ m mstvol 


M VO し F し T 


MUSIC3 




m—volflt(c,md) 


char 


MML データのボリュー厶設定コマンド Vn ,@ Vn を、衍定チャンネルの演你^に出力 
するかどうかを選#〈します。 


c . チヤンネル番号 （1 〜2汾 

md .0 = Vn ,@ Vn を出力する 

l = Vn ,@ Vn を出力しない 

c が VT 略された場合は、すべてのチャンネルに nid を設定します。 
md がれ略された場合は、祝 A の設定 M を返します。 

W リ侦として、正常のときは0、エラーのときは一1を返します。 


^ m_panflt 、 m_pgnflt 
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M VSET 


MUSIC 



m_vset(vo,ca) 

char(vo) ,char5C： 次元<4, 10) 配列名 (ca> 
int 

fid 列 ca に格納されている A •色データを指定された JV 色 S メモリバッファに登録 
します。 


vo . 昔色蒗号 (1 〜200)1〜68は®泳济 

ca . 色データが格納されている char5? 二次配列名 

汽1!列の次允は(4,10) 

作色データの配列形式 


_ 

0 

1 1 

卜 

-- 1 

4(オペレータ） 

0 

フィードバック/アルゴリズム 

(0^63) 

AR 

(0-31) 

1 

スロットマスク 

(0 〜 15) 

D 1 R 

(0 〜31> 

1 2 

ウェーブフォーム 

(0-3) 

D 2 R 

(0-31) 

3 

シンクロ 

(0.1) 

RR 

(0-15) 

4 

スビード 

(0 〜255) 

D 1 L 

<0〜 15) 

5 

PMD 

(0 〜 127) 

TL 

(0 〜 127) 

6 

AMD 

(0-7) 

KS 

(0-3) 

j 7 

PMS 

(0-3) 

MUL 

(0-15) 

8 

AMS 

(0^3) 1 

DT 1 

(0-7) 

9 

L,RPAN 

(0 〜 3) 

DT 2 

(0 〜 3) 

10 

1_1 



AMS イネーブル（0,1) 


なお、オペレータ1は Ml (モジュレータ1>、オペレータ2は C1 (キヤリア1)、オペレ 
-夕3は M2 ( モジュレータ2)、およびオペレータ4は C 2(キャリア 2) に対応してい 
ます。 


戾リ侦として、正常のときは0、エラーのときは一1を返します。 

^ m.vget 

*音色データの評細は、 r Human 68 k ユーザーズマニュアル j の「7.3.2 FMS 1 源の 
音色データ（レジスタ）」を参照してください。 
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害式 

引数 
戻り値 


m _ ycom ( md ) 

char 



機能] md =0 で Y コマンドを MIDI のコントロールデータと解釈します。 

md = 1で Y コマンドを OPM レジスタの: i 1 : ••き換えと解釈します。 
md を朽略した場介は、祝在のモードを返します（デフォルト=1)。 
戻リ侦として、正常のときは0、エラーのときは一1を返します。 


195 


NAME 


コ ▽ 


書式 ] name ，，〔〈ドライブ名〉〕くファイル名 1 >’•••，くファイル名 2 >，， 


省略形 


機能 指定したドライブのファイル名くファイル名1 >をくファイル名2 >に変史します。くド 

ライブ名〉、くファイル名〉についてのぽ細は、 「 Human 68 k ユーザーズ マニュアル」 を 
参照してください。 


用例 


: ¥test • has •• • "a : ¥ tes t • dat 


NEW _ コマンド 

窨式 new 

機能 I メモリにあるプログラムを mi ： •し、すべての変数を初期化します。 

nevv ^ r 令を次:行すると、メモリにあるプログラムはすべて消去され/定義されている変 
数もすベて初期化されます。 


delete 


OCT$ 


標準関数 



octS ( i ) 


str 

整数値 i を 8 進表祝の文字列に変換し返します。なお、上の” 0 
す0 



binS、hexo 


用例 


10 /< oct $ sample 
20 int ai•bi 
30 ai=-255 
40 bi=l 00542300 
50 print oct)(ai) 

60 print oct$(bi) 

70 print oct$(ai)+oct$(bi) 
80 end 


”は取り除かれま 
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PAINT 


GRAPH 



paint ( x , y , p ) 

int 

void 

グラフィック_面上の任您の単色領域内を塗りつぶします。 
window ^ 数で指定されたクリッビングエリア外の領域は無 W されます。 


x . 礅リつぶしたい領域内の1点の X 座標 

y . 牟リつぶした v 、領域内の 1 点の Y 座標 

P . パレット コード （色） 

x 、 y は、一32768から32767までの肮をとることができます。また、パレットコード p は 
0から65535までの攸をとることができ、その W 人値はグラフィック ㈣ 曲の実_曲•サ 
イズおよび色モードによります。 


用例 


10 /* paint sample 
20 int ai f bi,ci t di,fti.fi 
30 screen 1 9 3 9 1 9 1 
40 vpage(1) 

50 for ai=0 to 50 
60 bi=rand() mod 512 

70 cirrand() rood 512 

80 di-rand() mod 200 

90 eirrnd()« 65535 

100 circle(bi f ci f di f ei f 0 f 360,4 00) 

110 next 


120 for ai=0 to 300 
130 p() 

140 next 
150 wipe() 

160 for ai:0 to 50 

170 bi=rand() mod 512 

180 ci=rand() mod 512 

190 di=rand() mod 512 

200 ei=rand() mod 512 

210 fi=rnd()*65535 

220 box(bi f ci t di f ei f fi t &HFFFF) 

230 next 


240 for ai=0 to 300 
250 p() 

260 next 
270 end 
280 func p() 

290 paint(rnd( )*511 f rnd( ”511, rnd( )*65535 ) 
300 endfunc 
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PA し ET 


GRAPH 


用例 10 /* palet sample 

- 1 20 int ai =1 5 f bi f ci t di 

30 dim int aia(7) 

40 screen 2 f 0 9 1 9 1 
50 vpage(1) 


60 

fill( 100 

100,667 

41 

70 

fill( 120 

120.647 

39 

80 

fill(140 

140,627 

37 

90 

fill(160 

160,607 

35 

00 

fill(180 

180,587 

33 

10 

fill(200 

200,567 

31 

20 

fill(220 

220,547 

29 

30 

fill(240 

240,527 

27 


140 while -1 

150 ci:bi mod 8 

160 palet(ai 9 aia(ci)) 

170 if ai=1 then ai=15: 

180 ai=ai-2 

190 bi =bi -f 1 

200 for di=0 to 300 

210 next 

220 endwhile 

230 end 


color code = 65535 
color code = 65473 
color code = 63551 
color code = 63489 
color code = 2047 
color code =1985 
color code = 63 
oolor code =1 


aia(0)=65535 / 

aia(1):65473 / 

aia ⑴=63551 / 

3) =63489 / 

4) =2047 / 

5) =1985 / 

6) =63 / 

7) = 1 / 


a 

a 


a 

a 


式 


palet ( p . c ) 


数 


戻り値 


機能 


void 


グラフィック _ifii の fV パレットにカラーコード c を別りあてます。 


P 

c 


ハ•レツトコード （0 〜255) 

カラーコード（〇〜65535> 


このパレットコード p の极人侦はグラフ ィ ック|由) ifii の # 灸:_曲•サイズおよび色モードに 
ょ*)ます〇 

なお、グラフ* ィッ ク㈣ 而のサイズ及び色モードが 512 X 512、65536 
パレットコード p とカラーコード c は1对1に対応し、 Wfift として扱われるので、この 
palet 閲数は無効となります。この場作バレ ッ トコード p は 0 から 65535 の侦をとるこ 
とカヾできます。 


5 3 1 ) 
1119 


5 31 


n 

0 
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PI 


標準関数 



pi (〔 n 〕） 

float 

float 

I リ問中の nfi 1 ! •を返します。数 fiftn を宵略すると n 二1と兄なされます。 



用例 


10 /* pi sample 
20 print pi() 

30 print pi (2) 

40 print pi ( 4.675#) 
50 end 
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POINT 


GRAPH 


/* point sample 

int ai=255 f bi = 255 f ci f di = l f ei = l f fi 
screen 2 9 0,1 9 1 
vpage(i) 

line( 100, 100 f 667 f 100 f 3 f &HFFFF) 

line( 100 t 100 f 100,411 f 9 f «tHFFFF) 

line( 100,411 f 667.411,11 f &HFFFF) 

line(667 f 100 ， 667 f 411 f 13.&HFFFF) 

while - 1 

ai=ai+di 

bi=bi+ei 

oi=point(ai t bi ) 

switch ci 

case 3:ei=1 ： fi=l：break 
case 9:di=1 ： fi=1：break 
case ll ： ei=-l ： fi=l：break 
case 13 ： di=-l : fi=l : break 
endswitch 

if fi=1 then fi-0：continue 
pset ( a i 9 bi t 5 ) 
endwhile 
end 


式 


point ( x , y ) 


引数 


戻り値 


機能 


グラフィック I 由 I 面上のドットの ハ。 レットコードを返します0 


ドットの观標 


y . ドットの Y 座標 

x 、 y は window ^ 数で指定されたクリツビングエリア内の値をとることができます。 
戻 1 Mift として、0から65535の ハ ◊レツトコードを返します。ただし、その ハ。 レツトコー 
ドの大侦はグラフィツク I 由 Itfri の次: I 由)向•サイズおよび色モードによります。 


O0O0O 
12 3 4 5 


000000 OCO 00000000 


6 7 8 9 0 1 


012345678901 

111111111122 


2 

2 


例 

用 
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POS 


窨式 

戻り値 
機能 
用例 


POW 


窨式 

引数 
戻り値 
機能 


用例 


システム変数 


pos 



テキスト味1面の祝在のカーソルの x /屯標を返します。代人することはできません。 

10 /拿 pos sample 
20 print f, X68000 •• 

30 print ,f X68000 HD 
40 print pos 
50 end 


標準関数 


povv ( nl . n 2) 

float 

float 

数 W ( nl の n 2 乘の,をします。 n 1= 0 かつ n 2< 0 の坳合と n 1 く 0かつ n 2 か嘴数でない場 
介は、 エラーと なります。 

10 /拿 pow sample 
20 float af f bf t cf t df 
30 afr5.3# 

40 bf=2.8# 

50 cf=2.23# 

60 df=-2.87# 

70 print pow(af f bf) 

80 print pow<cf,df) 

90 end 
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PRINT 


ステ ー トメント 


害式 


省略形 


機能 


(1) print〔using く寄式制御文字列〉〕〔く式〉...〕 

〔1〕 P . 

テキスト_曲に文字列や数値を衣示します。 

print 命令に絞けて数値や文字列を指定すると、その数侦、文卞列がテキスト州 fd に衣 
示されます。また、数侦”変数や str 5? 殳数が指定されると、それらの变数に代人され 
ている数 fift や文字列がテキスト I 卿 fn ^にされます。 
print 命令だ ( ナを衍定すると改行が行われます。 

数狼をする堝介、その後ろに必ず空 fl が1つ人 1 )ます。また、数飢の刖には？^> 
⑴の价が W 怠され、ブラス （+) のときには空幻、マイナス（一）のときにはマイナス符 
号（一）が表示されます。 

权数のデータを衣示する場合、それらの区切りとして、カンマ <，）、セミコロンに） 
が使えます。カンマを使うと print 命令の後ろのデータはテキスト I 由1曲の 一 黹ん:の列に 
示さ才 U 8桁ごとに区切って表示されます。区切りにセミコロンを使うと print 命令 
の後ろのデータがつながってテキスト I 由 Ufti に衣ポされます。 一 SW 後のデータの後ろ 
にセミコロンを ; K くと、つぎの print 文のデータが前のデータにつながって及示されま 
す。 

lprim 命令を使うと、テキスト I 由 Hfti の代わりにプリンタに出力することができます。 
print 命令の肖略形として？（疑問符）を使うことができます。 

print 命令の後に、 using と开式指定子•を絞けることによって、樣々なフォ ー マットでデ 
ータを衣がく、出力することができます。 

print usin 设令を使叫した場合は、权数データを扱うことはできません。必ず、1つ 
のデータになります。 


1 . 数麵 


木 * 
¥¥ 
氺 * ¥ 


及示する数値の桁数を衍定します。数値の桁数が、指定された桁数 
よリ少なければ右詰めで衣^、出力されます。 

小数点の位策を指定します。はみ出す部分は I 叫:入されます。 

正 ft の符号をつけます。 ft の符号は、#の列の後にのみ設定できま 
す。 

空臼の部分をアスタリスク （* ) で埋めます。 

数値の光頭に¥マークを付けます。 

空白をアスタリスク （*) で埋め、先頭に¥マークをつけます。 
数値を指数表％で表示^出力します。 

3桁ごとにカンマ （ ， >をふります0 
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2. 文字型 

! 文字列の光頭の1文字のみを g 出力します。 

&(空白） & 文字列を&から&までの文字 数 分だけ表示、出力します。 

@ 文字列をすべて表示、出力します。 

3. その他 

」アンダースコア）この後の并式指定子の1文字は、中•なる文字として衣示、出力しま 

す。用式指定子以外の文字があった場<今は、そのまま衣示、出力さ 
れます。 


10 print using sample 

20 print using #i ! ff ； 11 SHARP X68000 •• 

30 print using ••& & ft ； "SHARP X68000 

40 print using •• 参 # 参 # ; 680 • 4086# 

50 print using ••### 参 ## j 680 • 0686# 

60 print using ,f ♦###♦#• # tf ; 680 • 0286# 

70 print using M #####.#- M ;-680•0586# 

80 print using •• 拿拿 ### #•#•••• 6800 •186# 

90 print using M W#### . # M ; 680 • 8786# 

100 print using ""¥##•«"; 680 • 9886# 

110 print using •• 参 # 参参 # 6800 • 086# 

120 print using "*•»**.#. . ； 1234.5 6# 

130 print using ,f VY### •^- it ;680.0086# 

140 print using ••##«##••;12345678 • 5488# 

150 print using M This is a f# : #, X68000 
160 end 
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PSET 


GRAPH 


害式 

引数 
戻り値 
機能 


用例 


pset ( x ， y ， p ) 


void 

グラフィック_面上にドットを表示します。 

x . ドットの辦:標 

y . ドットの Y _ 

p . ノヽ 0 レツ トコード(色) 

x 、 y は、一32768から32767までの侦をとることができます。クリッピングエリアにつ 
ぃては window 閱数で fit 定された範いになります。またパレットコード p は0から 
65535までの侦をとることができ、その iii •人侦はグラフィック ㈣ 曲•の次面サイズお 
よび色モードによります。 


10 ハ pset sample 
20 int ai t bi 9 ci 9 di 
30 float af 
40 screen 1 9 3 »1 9 1 
50 vpage(1) 

60 for ai=l to 5 
70 for bi=0 to 511 

80 af=(2 拿 3.141# 拿 bi)/512 拿 ai 

90 ci=255-3in(af)*200 

100 di=rnd() 拿 65535 

110 pset{bi f ci f di) 

120 next 

130 next 
140 end 
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/* get & put sample 
int ai 9 bi 9 ci 

dim int aia(4899) t bia(4899) /t 140*70/2bytes 
screen 1 f 3 9 1 9 1 
vpagetl> 

rainbow" 

box(0,0,139 t 69 f 65535 f &HFFFF) 
get(0 f 0 f 139, 69 f aia) 

/拿 save gram data to file 
ai = fopen( #, a ： test•dat 1 ', M c M ) 
fwrite(aia,4900 t ai) 
fclose(ai) 
wipe() 

/ 拿 load gram data from file 
ai rfopen ( . a •• test •dat M f f, rw ## ) 
f read(bia,4900 9 ai ) 
fclose(ai) 



for air0 to10 
bi=ait30 

put(bi,bi ， bi+139,bi+69 ， bia> 
for ci=0 to 1000: next 

next 

end 

func rainbow() 
for ai=0 to 63 
bi =ai 拿 3 

circle(69•69,ai f hsv(bi f 31 f 31)+ 1 f 10 t 170 f 380 ) 

next 
endf unc 


PUT 


GRAPH 


式 


引数 


戻り値 


機能 


put ( xl , yl . x 2 f y 2, na ) 

int ( xl , yl , x 2• y 2) ,数値型一次 tCK 列名 ( na ) 
void 

get 関敉で说み込んだドットパターンを指定された配列 na から说み出してグラフィッ 
ク_面 i ••の指定領域に衣示します。 

xl . 始点腕標 

yl . 始点 Y 冲:標 

x 2 . 終点脚標 

y 2 . 終点 Y 峰:標 

na . ドットパターンが格^されている数攸切一次元 fid 列名 

xl 、 yl 、 x 2、 y 2 は、 window ^ 数で指^された範囲内の値をとることができます。ま 
た、 fid 列 na 内のデータ構造については、 get 関数を参照してください。 

とくに、 putWl 数を次:行する前にあらかじめ get 関数で統みこんだときと同じグラフィ 
ック ㈣ ifti の次: I 叫 fd サイズおよび色モードにじ CJfi 域の人きさや配列 na のデータ5?、添 
字などは M じになるように fit 定してください。 


000000000000000000000000000000 

123456789012345678901234567890 

111111111122222222223 


例 

用 
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RAND 


標準関数 



rand () 


Oil h 32767以内の钹数”乩数を返します。 



randomize 、 rnd、srand 


用例 


10 /* rand sample 
20 int ai 
30 for ai=0 to10 
40 print rand() 

50 next 
60 end 


RANDOMIZE 


標準関数 



randomize ⑴ 

int 

void 

rnd () 関数の乩数系列を初期化します。 

i . 乩数のシード（一32768 Si S 32767) 


■4 rand 、 rnd、srand 


用例 


10 /拿 randomize sample 
20 int ai,bi 
30 for ai=0 to 2 

40 randomize(int( 327671rnd( )-32768 拿 rnd())) 

50 for bis0 to10 

60 print rnd() 

70 next 

80 next 
90 end 
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REM 


ステ ー トメント 


軎 

式 


機 

能 


/* 〔ぐれ釈文〉〕 

プログラム中に;れ釈を人れます。 

/* に統く文字列は、プログラム中の注釈になるだけで、ブログラムの実行にはまつ 
たく関係しません。プログラムを兄やすくする党え,$きとして使⑴してください。 


用例 10 /* rera (/*) sample 

30 /* super personal workstation 
40 ハ 

50 print "X68000 •• 

60 end 


RENUM 



renum 〔く靳彳/ ^ り •>〕 〔, <111行 Sv >〕〔, 伽分〉〕 


ren . 

プログラムのむ•を付けめ:します。 

<新行番号〉、く增分〉とも、朽略すると10が採用されます。く旧行番号〉を指定しない 
と、そのブログラムの光娘から新しい•に変わります。たとえば、 


renum 

ブログラム全体の行番号を付けかえます0新しい行番号は10から始ま 
り、20、30……と付けられます。 

renum 100,50 

行番号50に新しい行番号として100が付けられ^以降110、120……と付け 
泊:されます。 

renum 100,,100 

プログラム全体の行番号を付けかえます。新しい行番号は100から始ま 

り、200、300……と付けられます。 

renum 命令は、 goto 命令、 gosub 命令、 then ®、 else ® などで使われている行#号は 
変史しません。 
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REPEAT 〜 UNTIL 


ステートメント 


rgb ( r , g . b ) 


char 


r (赤)、 只 ( W 、 b ( m の成分を〇〜31で選び、カラーコードを求めます。なお、この 
rgbfW 数によって得られるカラーコードは、〇〜65534までの偶数侦になります。した 
がって、それぞれの偶数侦に1を加えることで〇〜65535までのカラーコードを指定 
できます。 


rgb sample 
int ai , bi t ci 
screen 1,3,1, 
vpage(1) 
locate 7,4: 
locate 4,17 
locate 33,4 
locate 62,4 
locate 6,30 
for ai=0 to 31 

locate 1,1：print "Red = 
for bi=0 to 31 

for ci=0 to 31 

fill(bi*14.64，c 

next 

next 

next 

end 



；ai 


14 + 64,bi 拿 14 + 78 ， ci 拿 14 + 78 ， rgb(ai,bi 


機能 



戻り値 


用例 


引数 


式 


repeat 

くループの内容〉 
until く 式〉 


機能 


用例 


く式〉の値が典になるまで、指定されたくループの内容〉を繰り返し（ループ）ます。 
繰り返しの終了判定はくループの内容〉の実行後に行われます0少なくとも、1冋は〈ル 
—ブの内容〉を実行します。 

10 /» repeat until sample 
20 int ai 
30 repeat 

40 input M l+2= M ；ai 

50 until ai-3 
60 print "ok!" 

70 end 


RGB 


GRAPH 


000000000000000000 

123456789012345678 

11 n 1 11 1* 11 11 
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RIGHTS 


標準関数 



rights ( st . i ) 
str ( st ), int ( i ) 
str 


文字列 st の終リから指定された文字数 i 分の文字列を取り出して返します。 


st . 元の文字列（文字式) 

i . 取リ出したい文字数 

文字数 i は、1から255の侦をとります。 

衍定された文卞敉 i が文卞列 st の総文卞数よリ人きいときは、文字列 st をそのまま取り 
出して返します。指定された文字数 i が、0または ft の場合は null 文字を返します。 


■4 left $、 mid $ 


用例 


10 /拿 right! sample 
20 str as 

30 as = •• personal workstation X68000 
40 print rights(as 9 9) 

50 end 



RND 


標準関数 


兔_式」 rnd () 
戾り値1 float 


機能 〇以 1. 1木満の太数切乩数を返します。 


， rand 、 randomize、srand 


用例 


10 / t rnd sample 
20 int ai 
30 for ai=0 to10 
40 print rnd() 
50 next 
60 end 





RUN 


コマンド 


害式 


省略形 
機能 


SAVE 


害式 

省略形 
機能 


用例 


run 〔く行番号〉〕 

run " f < ドライブ8>〕〈ファイル 7 パ〉” 


メモリにあるプログラムを実行します。 

く行番号〉を VT 略すると、先姐行からプログラムを次:彳 f します。 

ドライブ名、ファイル名がされた場作は、指定されたファイルをロードして次 : U 
します。 

<ドライブ名〉、くファイル名〉については 「 Human 68 k ユーザーズマニュアル」を参照 
してくた< さい。 

途中でブログラムの次:彳 i •を屮止したいときは、十 HT ] キーまたは 
BREAK |キーを押します。 


コマンド 


save 〔@〕 ”〔くドライブ名〉〕くファイル名〉’•〔，く行番号1>〕〔一〔く行番号2〉〕〕 


sa . 

メモリ上の BAS 1 CT ログラムを、セーブします。 

save ではブログラムをアスキー杉式でセーブします 0 セーブされる iiK の範州は、 
list 命令と M 様に行われます。 save ® は、行番号を朽略した形でブログラムがセーブさ 
れます。 

<ドライブ名〉、くファイル名〉については 「 Human 68 k ユーザーズマニュアル j を参照 
してくた一さい。 


load 

save f# a: Vtest.dat 
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第 4 章リファレンス 


SCREEN 


ステー トメント 


害式」 screen 〔く衣/由 M サイズ〉〕，〔〈グラフィック I 由 I 面の実 I 由 Tiftj サイズ及び色モード〉〕， 

くディスプレイ解像度>〔，くグラフィック I 由の表示 ON / OFF 〉〕 


省略形 


機能 


sc . 

I 由 itfii 全体（テキスト I 由1面、グラフィック I 叫ぬ i 、 スプライト I 由1面)のスクリーンモード 
を設定します。 


く表示画面サイズ〉 

0 .256 X 256 

1 .512 X 512 

2 .768 X 512 (くディスブレイ解像度〉が1(商解像度モード）のときのみ使 

川‘， r 能） 

ただし、く衣ボ调曲サイズ〉が 768 X 512 以外のときにのみ、スプライト阐面は使…でき 
ます。また、く衣ボ阀面サイズ〉が 768 X 512 のときは、くグラフィック_面の実阐面サイ 
ズ及び色モード〉は、0しか設定できません。 


くグラフィック画面の実画面サイズ及び色モード〉(使用可能なグラフィックページ） 

0 . 1024X 1024、16色（グラフィックページ0> 

1 . 512X512、16色（グラフィックページ〇〜3> 

2 . 512X512、256色（グラフィックべージ0、 1) 

3 . 512X512、65536色（グラフィックページ 0) 

ただし、くグラフィックI由刷の次:I由 Itffl サイズ及び色モード〉が0以外のときは、く表>7綱 
ifti サイズ〉は0または1しか設定できません。 


くデイスブレイ解像度〉 

〇 . 

1 . High 解像度 ) 

ただし、 screen ，，〇はくディスプレイ 解像度〉 のみを Low に設定し、 screen ,,1 
はくディスプレイ 解像度〉 のみを High に設:定します。この 場 分、グラフィック RAM の 
データは保存されたままです。くディスブレイ 解像度〉 が Low のときはく表示画面サイ 
ズ〉で 768 X 512 は使用できません。 


くグラフイック画面の表示 ON/OFF〉 

0 . 表示 OFF (グラフィック関数使用不可） 

グラフィック RAM をグラフィック以外の目的で使用する場合に設定 
してください。 

1 . 表示 ON (グラフィック関数使用可） 

グラフィック RAM をグラフィック関数などで使用する場合に設定し 
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てください。（グラフィック RAM 初期化） 

なお、一旦〈グラフィック画面の表示 ON / OFF 〉 を1に設定するとすベてのグラフィ 
ック RAM のデータは消去されます。特にグラフィック RAM を RAM ディスクとして 
使用している場合は、 RAM ディスクか碰されますので、あらかじめ RAM ディスク 
のデータをディスクなどにセーブしてください。 

screen 命令実行後、 windou 個数（グラフ ィッ ク_面のクリッ ビングエリ ア）は表示_ 
面サイズに、 home ! 对数（グラフ ィ ック两面の実_面における衣/】綱面の Ail •座標）は 
(0, 0 H こ再設定されます。また、テキスト1#1曲は、通常表ボ ON 、 スブライト I 由]面及 
びグラフィック_面は表^く OFF です。 

グラフィック閲数を使する場作は、必ず敁初に screen 命令で初期化を行ってくださ 


SEARCH 



⑴ search ••く検索文字列〉，， 

COse . 

指定したく検索文字列〉を含むプログラム行をすべて衣示します。 
lsearch 命令を使用すれば、プリンタに出力できます。 


用例 search "X68" 
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setmspos sample 
int ai=1 9 bi 9 ci 
screen 2,0,1,1 
vpagf?(1) 
mouse(0) 

msarea(0,0,767 f 511) 
hox(0 f O f 767.51 1 f 15 f &HFFFF) 
mouse(1) 
while ai< >0 

print "mouse cursor area (X) = 0 1 d i 

print mouse cursor area (Y) = 0 511" 

input ..mouse cursor position ( X , Y ) = M ； b i f c i 



endwhile 
end 


SETMSPOS 


MOUSE 


式 


setmspos ( x . y ) 


引数 


戻り値 


機能 


マウスカーソルの位:！?:を指定します 0 nisareaWJft : こよって衍定された範 M で 

す。戻リ侦として、エラーのとき一1を返します。 


SGN 


標準関数 


式 


SKn(n) 


数 


float 


戻り値 


float 


機能 


数 fiftn の汀リ•を凋べ、 il : •の： R だったら1を、 n が〇の坳介は0を、 ft の数だったら一1 
を;反します。 


用例 


10 /拿 sgn sample 

20 print sgn( 4523453 .453#) 

30 print sgn(0) 

40 print sgn( -442134 .24568# 
50 end 


000000000000000 
12345 6 7 89012345 


例 

用 


211 


SIN 


標準関数 


/* sin sample 
int ai,bi 9 ci 9 di 
float af 
screen 1 9 J 9 1 9 1 
vpage(1} 

line<0 ， 255,511 f 255 f 65535 f &HFFFF) 
for ai:l to 3 

for bi=0 to 511 

af=(2*pi()*bi)/512*ai 
ci=255-sin(af)*200 
di=rnd( >*65535 
pset(bi,ci 9 di) 



end 


窨式 


sin ( n ) 


引数 


float 


戻り値 


float 


機能 


数 fiftn (ラジアン）の正弦(サイン>を返します。 


SPACES 


標準関数 


式 


spaceS u ) 


数 


戻り値 


str 


機能 


鼓さ i 文字の空白文字<& H 20) からなる文字列を返します。 

Ji さ i は1から255の侦をとり、0または ft の場介には null 文字を返します。 


用例 


10 /* space$ sample 
20 str as[ 2551 
30 as = space $ ( 254 い 
40 

50 end 



000000000000000 

123456789012345 

111111 


例 

用 
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第 4 章リファレンス 


SP_C し R 


SPRITE 



sp clr (〔 cdl 〕〔, cd 2〕) 
char 


パターンコード cdl からパターンコード C d 2 で衍定した範网のスプライトや八ックグ 
ラウンドのパターンを初期化します。 

パターンコード cdl を竹略した場作は、パターンコード0からパターンコード cd 2 まで 
のパターンを初期化します。パターンコード C d 2 を朽略した場公は、パターンコード 
cdl で指定したパターンだけ、またパターンコード cdl 、 cd 2 とも右略した場公は全パタ 
ーン（バターンコード〇〜 255) が初期化されます。 


cdK cd 2 •••パターンコード （0 〜255) 


SP 一 COLOR 


SPRITE 



sp color (p,c 〔， pbj) 


char(p, pb). int(c) 


スプライトやバックグラウンドのハ。ターン中•位にパレットブロック pb をす It 定し、その 
パターンのドット* Mi に（各ノ、。ターンにおけるノぐレットブロック pb ^> 中から）ハ。レッ 
トコード P を没定し、そのハ。レットにカラーコード c を削りあてます0なお、ハ。レット 
ブロック pb を杏略したときは、ハ*レットブロック1と兄なされます。ハ 。 レットコード〇 
には透明を設定してください。 

め) fift として、 I 能されたパレットコード p に対する設定前のカラーコードを返します 


P. /ヽ。レツトコード（〇〜15> 

c. カラーコード（〇〜65535) 

pb . ノ、。レットブロック （1 〜 15) 
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SP—DEF 


SPRITE 





sp def (cd.caC, sz〕> 

charted, sz), char 型一次元 (255 または 63>ft 己列名 （ca) 
int 

スブライトやバックグラウンドのパターンを定旄します 0 


cd . ハ•ターンコード （0 〜 255) 

ca . スプライトやバックグラウンドのパターンのデータが格^されてい 

る char 型一次元 K 列名、要素数 256(sz=l のとき>または 64(sz=0 
のとき） 

sz . パターンサイズ（0、1> 

パターンサイズ sz が1の垛作、定義できるパターンは 16X16 ドットで、1ドットにつき 
M 列 ca の1要索を使) H します。〇番 H の要素がパターンの /r:l •.端のドット、 15#tJ の要 
索がパターンの右上端のドットに対もします。この場合の fid 列 ca の要索数は256にな 
リます。 16x16 ドットのパターンが使⑴されるのは、スブライトの八ターンや衣ン由1 
Ifti サイズが 512X512 の坳介のバックグラウンドのパターンを定義するときです。ま 
た、パターンサイズ sz 力 <1のとき、バックグラウンドのテキストページ1しか使しな 
^、坳介のパターンコード cd は0から191までの fift をとることができ、テキストページ0、 
1とも使II!する場介のノ、。ターンコード cd は0から127までのをとることができます。 
八ックグラウンドのテキストページ0、1とも使⑴しない（八ックグラウンドを使) H し 
ない）場 のノ、。ターンコード cd は0から255ま での懷を とることができます。 

パターンサイズ sz が0の場公、定義できるパターンは 8X8 ドットで、1ドットにつき rtil 
列 ca の1要索を使 W します。 0SI Iの要索がパターンのん:I••端のドット、7番 IJ の要索が 
パターンの右上端のドットに対丨芯します。この場作の配列 ca の要本数は64になリま 
す。 8X8 K-/ 卜のパターンが使用されるのは衣说由〗面サイズが 256x256 の場の八ッ 
クグラウンドのパターンを定義するときです。 

パターンサイズ sz が1のとき、パターンコード n というバターンが定義されていたとし 
ます 0 この 16X16 ドットのパターンと⑻じものを定義するためには、パターンサイズ 
sz か'0のとき、4つのパターンコードか'£、要になります。この4つのパターンコードに 
は、 16X16 ドットのパターンの内、メ jil ••の 8 x 8 ドットのハ。ターンか'、ハ。ターンコード 
4n に、左下の 8X8 ドットのパターンがパターンコード 4n+l、 以下同様に右上が 4n+ 
2、心-ドが 4n+ 3に衬応します。ただし、バターンサイズ sz が0のときでも定義できるパ 
ターンの Ak 人牧は256です。 

なお、パターンサイズ sz をれ略すると、パターンサイズ sz は1と兄なされます。また、 
1ドットのデータは4ビットでこの侦がそのドットのパレットコード p となリます。 


sd pat 
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670 bg_fill(0,pat dat. ( 0 f 0 f 1 9 4 )) 

680 bg^set(0 f 0 f 1) 

690 /* set background 1 

700 bg fill<1 f pat^dat(0 f 0 f 1,5)) 

710 bg set(1,1,1) 

720 /* set sprite-plane 0,1 & background 0,1 
730 i=0 ： di=1 
740 while -1 
750 i=i+di 

760 /t background scroll 

770 if xl=511 then xl=0 

780 if yl=51i then yl=0 

790 xl=xl+l 

800 yl=y U 1 

810 bg scrol1(0 9 x 1 •y 1 ) 

820 bg—scrol 1( 1 f 511-xl f 511-yl) 

830 / * move sprite 

840 if i<l then di=l 

850 if、i >286 then di=-l 

860 f=(pi(2)«i)/288t8 

870 x2=128-120*sin(f)*cos(f)«sin(f+pi()/2) 

880 It ブライオリティ （sprite > backjjroundO > backgroundl) 

890 sp set(0 f \2,i f pat dat(0 9 0»15 9 0) 9 3) 

900 /* アライオリティ （ backgroundG > sprite > backgroundl > 

910 Rp_8Pt (1 f i f x2 # pat^dat(0 f 0 f 14,0) f 2) 

920 for t j = 0 to 50 : next 

930 enduh i ) e 
940 end 

950 func pat dat(vr f hr,pb f cd) 

960 /» vr = _ ffl 反転 （ 0 なら反転しない、 1 なら反転する） 

970/* hr : 水平反転 （ 0 なら反転しない、 1 なら反転する） 

980 /* pb ::バレヴトブロック < 1 以上 15 以 T の « > 

990 /t ed =パターンコード （ 0 以上 255 以下の値） 

1000 return(vr 拿 32768 + hr 拿 16 384 + pb 拿 256 + cd} 

1010 endfunc 


SP-DISP 


SPRITE 



sp disp ( ch ) 

char 

int 

スブライト_面（スフ*ライトやバックグラウンド> の表示の設定をします。なお、ス 
ブライト_面は表示画面サイズが 768 X 512以外のとき使用できます。 


ch . 0 (スプライト_面を表示しない) 

1(スプライト画面を表示する） 
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SPJNIT 


SPRITE 



sp init () 


スブライト昨 I 血（スプライトやバックグラウンド）を初期化します。初期化するもの 
は、れパターンやパレットなどです。なお、スプライト I 由 lifn •は及ホ I 由 Wd サイズが 768X 
512以外のとき使川できます。 


SP 一 MOVE 


SPRITE 




sp_move ( s ， 〔 X 〕 ,〔 y 〕〔, cd 〕) 
char ( s , cd ), int ( x , y ) 


パターンコード cd のスプライトパターンをプレーン s に別りあて、指定された座標位 
にそのスプライトを於 f くします。 


s. プレーン （0 〜 127) 

x. »刪一16〜100 7) 

y . Y 座標（一 16 〜 1007> 

cd . ハ 0 ターンコード （0 〜255) 

衣/ j;l 由1曲の/ rll •座標は、 sp set と輿なリ (0,0) になります。 

sp move は sp_set のパラメータの•部を標•命的な飢に《5：定した関数です。つまり、萌 
道;、水平反転は通常、ハ•レットブロックは1、優先度は3に、自制約に設定されます。 
よリ商度な使い方をする場公は、 sp set を使用してください。 

八ックグラウンドのテキストページ1しか使 W しない場合のパターンコード cd は 16X 

16ドットパターンの場合0から191までの値をとることができます。テキストページ0、 

1とも使 W する場作のパターンコード cd は 16x16 ドットパターンの場合0から127まで 

の値をとることができます0テキストページ0、1とも使用しない（バックグラウンド 

を使 W しない)場合のパターンコード cd は 16X16 ドットパターンの場合0から255まで 

の値をとることができます。 
sp_set 
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SP 一 OFF SPRITE 

窨式"! sp off (〔 sl 〕〔， s 2〕> 

引 数 ] char 

戻り値 int 

機能^!プレーン si からプレーン s 2 で指定した範网のスプライトが表示されません。プレーン 

si を朽略した場介は、プレーン0からプレーン s 2 までのスプライトが表示されません。 
ブレーン s 2 を VT 略した場合は、ブレーン si で衍定したスプライトだけ、またブレーン 
si 、 s 2 とも右略した場合は全スプライト（プレーン〇〜127)が表示されません 0 

si 、 s2 …… ブレーン （ 0 〜 127) 


SP-ON SPRITE 

式] sp _ on (〔 sl 〕〔， s 2〕> 

引数| char 
戻り値 ] int 

機能"！ プレーン si からプレーン s 2 で指定した範1州のスブライトが衣 / J •くされます。プレーン si 

をれ略した垛公は、ブレーン0からプレーン s 2 までのスプライトが衣示されます。ブレ 
ーン s 2 を朽略した場合は、プレーン si で指定したスプライトだけ、またプレーン si 、 
s 2 とも竹略した場合は全スプライト（プレーン〇〜127)が表示されます。 

si 、 s 2 ……プレーン （0 〜127> 
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/拿 sp pat sample 
int ai f bi 
char ac 

dim char aca( 255 ) 
screen 1•3• 1 t 1 

input •• スブライト （ 16 拿 16 卜りのパターンコードを入わしてください《 0 、 255 

sp pat(ac f aca f 1 ) 
for ai=0 to 255 

if ai <>0 and (ai mod 16)=0 then print 
print usinM •••##"; aca 《 ai J ; 

next 

end 


SP 一 PAT 


SPRITE 


害式 


数 


sp pat ( cd , ca (, sz 〕> 

charted , sz ). char 型一次元 (255 または 63> 配列名 （ ca ) 


戻り値 


機能 


スブライトや八ックグラウンドのパターンのデータを、指定された配列 ca に読み出し 
ます。 

cd . ハ。ターンコード （ 0 〜 255) 

ca . スプライトやバックグラウンドのパターンのデ ー タを格納する 

char 型一次元配列名、要素数 256( sz = l のとき）または 64( sz =0 の 
とき） 

sz . パターンサイズ（0、1> 

说み出されたパターンのデータの"•細や、パターンコード cd や配列 ca 、 パターンサイ 
Xsz の•げ•細については 、 sp deHW 数を参照してください。 

sp def 


用例 


0 0 0 0 0 0 
12 3 4 5 6 


OOOO0O 
0 7 8 9 0 12 
£ 111 
• • 
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SP 一 SET 


SPRITE 



sp _ set ( s . 〔 X 〕， 〔 y 〕，〔 pd 〕〔, pr 〕) 
charts , pr ), int ( x , y , pd ) 
int 

バターンコー ド C d のスプラ イト パターンをプレーン s に劄リあて、指定された冲:標位闲 
にそのス ブライトを衣尔します。 


s . プレーン （0 〜127) 

x . 观標 （0 〜1023) 

y . Y 賴 （0 〜1023> 

pd . ハ。ターンデータ （0 〜 & HCFFF ) 

pr . _纪（0〜3> 

衣示 ㈣ 面の左上座標は （16,16) になリます。 

パターンデータ pd は、次のようなビット搆成になっています。（ビット12、13は通常0 
になります。） 

ビット15 . 画»义紅 （0 :通常、1:垂 lAKD 

ビット14 . 水平反転 (0 :通常、1:水平反転) 

ビット8〜11…パレットブロック pb ( 1〜 15) 

ビット〇〜 7 …パターンコード cd (0 〜 255) 

病 AKfe を指定すると、灾際に定義されたパターンが上卜 Kfe して衣示されます。ま 
た、水平反を I 蛇すると、次:際に定義されたパターンが左右反虹して衣示されます。 
パレットブロック pb は各パターンに対してすぼ定するパレットで、託細については 、 sp 
_ colort 用数を参照してください。 

テキスト ページ 1しか使⑴しない場介の パターンコー ド cd は 16 X 16 ドット パターンの 
場合'、0から191までの値をとることができます。テキスト ページ 0、1とも使 IH する場 
公のメ、。ターンコー ド c d は16 x 16ドット パターンの 場合0か ら 127までの値をとること 
ができます。テキスト ページ 0、1とも使 W しない （八 ックグラウンドを使用しない） 
場 介の/、。ターンコード cd は16 x 16ドット ハ。ターンの 場合0から255までの侦をとるこ 
とか#できます。 

度 pr は、指定する値によってスプライトと八ックグラウンド0、1の表ポ優先順位 
を次のように設定します。 

0……スプライトは表示されない 

1……ノヽ•ックグラウンド0 >ノ、，ックグラウンド1 > スプライト 
2……バックグラウンド0〉スブライト〉八ックグラウンド1 
3 •••••• スプライト〉/、•ックグラウンド0>ノ、•ックグラウンド1 

なお、ここで ( it 側にあるほど:®なったときの表示は俺光されることを意味しています。 
sp stat 
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SP—STAT 


SPRITE 



sp stat ( s f md ) 
char 


指定されたスプライトの状態を泣み出します。 


S . ブレーン （0 〜 127) 

md . モード （0 〜3> 

モード md には泣み出す内容を衍定します。 

0= W :« ⑴〜 1023) 

1 =Y 冲:標 (0 〜 1023) 

2 =パ ターンデータ pd (0 〜 & HCFFF ) 

度 pr (0 〜3> 

モード md で2や3を指定したときに说み出された内容 （ハ。 ターンデータ pd や俺光度 
pr など）の"•細については、 sp _ setf « 数を参照してください。 

sp 一 set 


224 




SQR 


標準関数 



sqr ( n ) 

float 

float 

数値 n の平方根(ルート）を返します。 n ^ O でなければなリません。 


用例 


10 /* sqr sample 
20 float af,bf 
30 af=5.3# 

40 bf=3000.455# 
50 print sqr(af) 
60 print sqr(bf) 
70 end 


SRAND 



srand ( i ) 


void 


rand () 関数の乱数系列を初期化します。 


i . 乩数のシード （0 SiS 65535) 

rand 、 randomize、rnd 


用例 


10 It srand sample 
20 int ai,bi 
30 for ai=0 to 2 
40 srand(ai) 

50 for bis0 to10 

60 print rand() 

70 next 
80 next 
90 end 


標準閲数 
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機能 


ョイスティック j の状態を調べます 

j. 1= ジョイスティ . 

2 = ジョイスティ •: 
リ値は次のようになります。 




10 st.ic ： 
20 int ai f 
30 els 
40 while b 
50 ai = 

60 loc 

70 swi 

80 cas 

90 cas 

00 cas 

10 cas 

20 cas 

30 cas 

40 cas 

50 cas 

60 def 

70 loc 

80 end 

90 endwh i It 
!00 end 










STOP 


ステートメント 


stop sample 
nt "personal 
nt "input 1 cont f ! M 


stop 

print 

print 

stop 

print 

end 


input f cont 1 ! 


X68O00 


窨式 stop 

~m ^~\ ブログラムの灾行を停止します0 

プログラムの尖行を止して、治:接命令が入力できる状態にします。 stop 命令はプロ 
グラム内のどこにおいてもかまいません。 

プログラムを#湖するには cont 命令を実行します。 

■4 cont 


STR ステ-トメント 


窨式丨 str ぐ变数名〉〔[く文字八ッファのサイズ〉：〕〔=く文字定数式〉〕し•••〕 

機能 J 変数を文字 ( str >5? として哀言します。 M 時に文字列を代人することもできます。ま 

た、く文字八ッファのサイズ〉を1〜255の_で設定できます。く文字八ッファのサイ 
ズ〉を指定しない場合は32文字と兄なされます。 str 型変数および定数は、常にキャラ 
クタコードが0で終わっています。 

原則として、変数宣言はメインブログラムの光頭で行ってください。また、 M じ名前 
の変数をメインブログラム中で再宣言することはできません。 

^ char 、 float、int 

用例 

10 /* str sample 

20 str as = ..personal workstation X68000 

30 str bs 二 .super personal workstation X68000 HD” 

40 str cs ( 2551="super personal workstation X68000 ••♦••super personal works 
tat i on X680OO ••♦••super personal workstation X68000 HD •• 

50 str ds = M SHARP'es = " 株式会社 ” 

60 print as 
70 print bs 
80 cr 二 cs+cs 
90 print cs 
100 print ds.es 
110 end 
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STR$ 


標準関数 


害式 


引数 


戻り値 


機能 


strS ( n ) 

float 

str 

i ’7 •抑小数侦 n を文？列に変換して返します。 
val 


10 /* str$ sample 
20 float af ， bf，cf 
30 str as > bs f cs(40) 

40 af=3000000OO0OOO# 

50 bf=2.51235E+200# 

60 cf=-2.3541786563E-300# 
7 0 as-st r$( af ) 

80 bs=str$(bf) 

90 cs=str$(cf) 

100 print as+bs+cs 
110 print bs+cs + as 
120 print cs + as + bs 
130 end 


STRCHR 


標準関数 



用例 


strchr ( st , ch ) 
str ( st ), char ( ch ) 


文字列 St の中で Ai 初にキャラクタコード ch の文字を兄つけた位满を返します。位黃は 
文卞列 st の光姐が〇になります。 M つからなかった場合は、 一 1を返します。 

キヤラクタコード ch は、0から2550涼をとります。 

10 /* strchr sample 
20 char ac 
30 str as 

40 as= 'personal workstation X68000 •• 

50 ac = asc ( 

60 print strchr(as,ac) 

7 0 end 
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ion X680O0 


STRCSPN 標準関数 

窨式 strcspn ( stl , st 2) 

引 数 ]str 
戻り値1 int 

機能 I 文字列 st 2 の中のどれか1文字を文卞列 stl の中で於初に兒つけた位;??を返します。位 

は文字列 stl の先如が0になります。兄つからなかった場れは、文卞列 stl のさを返 
します。 

文字列 st 2 が null 文字の場作も、文字列 st 1の技さを返します。また文卞列 stl が null 文 
字の場公は0を返します。 


a ) 
t s 
s b 
e k • 

1 r s 
p 0 a 

E wl( 

a5n 
SIP 
a s 
n n c 
pso r r 
s b s a -1 
c f r 4 s 
r 8 e k 
tap z t 
s••: n 

r h I- i d 
拿 tssr n 
/ 3 a b p e 

0O00OO 
12 3 4 5 6 
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strig ( j ) 


ジヨイステイック j のトリガーボタンの状態を調べます。 


=ジョイステイック 


2= ジョイスティック 
戻り値は次のようになります。 


j= 1 のとき 
(ジョイステ 


ク 1 


j=2 のとき 
(ジョイステイック 2> 


トリガー A 、 B とも押されていなし 
トリガー A のみ押されている 
トリガー B のみ押されている 
トリガー A 、 B とも押されている 

トリガー A 、 B とも押されていなし 
トリガー A のみ押されている 
トリガー B のみ押されている 
トリガー A 、 B とも押されている 


10 /* strig sample 
20 int ai 
30 els 
40 while - 1 
50 locate 10，10 

60 ai=strig( 1 ) 

70 if ai=0 or ai> 4 then 


い！ 


ジョイスティック 


リガーを » 


ださ 



if ai =1 then 

if ai=2 then 

if ai=3 then 
while 


ジヨイステイツク 1 のトリガー A が押されました 


ジョイスティック 


リガ ー B が押されま 


ステイツク1のトリガー A 、 B が If されま 












STRINGS 


標準関数 




stringS ( i , st ) 
int ( i ), str ( st ) 
str 

文字列 st の光頭 1 文字だけでできた、長さ i 文字の文字列を返します。鉍さ i は1から 
255の侦をとり、0または ft の場作には null 文字を返します。 


用例 


10 /* strings sample 
20 str as(255) 

30 as = string$( 255 f M ¥ t# ) 
40 print aa 
50 end 


STR し EN ( し EN) 


標準閲数 



strlen ( st ) 

len ( st ) 



str 


文字列 st の長さ （0 〜255)を返します。文字列 st が null 文字の場介は0を返します。 

10 /* strlen (len) sample 
20 str as 

30 asr^peraonal workstation X68000 •• 

40 print strlen(as) 

50 print len(as) 

60 end 
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STR し WR 


標準関数 


軎式 


引数 


戻り値 


機能 


strlwr ( st ) 

st r 攸数ノバ 

str 

str ”' 史数 st の中の英;•人文？:をす ベて 炎小文卞に殳換します。 


用例 


10 /拿 strlwr sampj e 
20 str as 

30 as= M PERsonal workSTATION X6800O 
40 strlwr(as) 


50 print as 
6(1 end 



STRNSET 


標準関数 





strnset ( st f ch f i ) 

str 型変数名 （ st ). char ( ch >, int ( i ) 

str 


strH ; 数 st の: t 如から文卞数 i 分をキャラクタコード ch の文字に変換します。 

キャ ラク タコー ド C h は、0から255の fift をとリます。文字数 i が0または ft のときは str 
5!!変数 st の内容は変わリません。 


用例 


10 /拿 strnset. sample 
20 char ac 
30 str as 

4 0 as= •• personal workstation X68000 
50 ac = asc( 

60 3trnset (as,ac f 8) 

70 print as 
80 end 
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STRRCHR 


標準関数 


strrchnst ， ch ) 

# 

引数 str ( st ), char ( ch ) 

戻り値 int 

文字列 st の中でキャラクタコード ch の文字が Ai 後に兌つかった位説を返します。位策 
は文ネ列 st の光頭が0になります。先頭でしか兄つからなかった場合は0、まったく兄 
つからなかった場合は一1を返します。キャラクタコード ch は、0から255の侦をとリ 
ます。 

10 /拿 strrchr sample 
20 char ac 
30 str as 

4 0 as= M personal workstation X680O0 •• 

50 ac：asc ( M o ## ) 

60 print strrchr(as f ac) 

70 end 


STRREV 標關数 


strrev ( st ) 

引数] str 5? 変数名 
戻り値 | str 

機能] str 切変数 st の並びを逆 fe します。 

10 /* strrev sample 
20 str as 

30 as：："personal workstation X68000 
40 strrev(as) 

50 print as 
60 end 
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STRSET 


標準関数 



用例 


strset ( st , ch ) 

str 型変数名 （ st >, char ( ch > 

str 

str 型 変数 st のすベての文字を、キャラクタコード ch の文字に 変換し ます。 
キャラクタコード ch は、0から255の値をとります。 

10 /拿 strset sample 
20 char ac 
30 str as 

40 as = . personai workstation X68000 •• 

50 ac = asc( 

60 strset(as 9 ac) 

70 print as 
80 end 


STRSPN 


標準閲数 





strspn ( stl f st 2) 
str 


文 7 列 st 2 に诚さない文？を文字列 stl の中で於初に M つけた位策を返します。位 S は 
文卞列 stl の: t ⑽が〇になリます。 W •つからなかった場作は、文字列 stl の设さを返しま 
す。また、文字列 st 1あるいは st 2 が null 文字の場合は0を返します。 


用例 


10 /拿 strspn sample 
20 str as t bs 

30 as= personal workstation X68000 
4 0 ba= 'personal wktin 68000 ## 

50 print strspn(as f bs) 

60 end 




STRTOK 


標準関数 




strtok ( stl , st 2) 
str 


str 


文字列 st 2 に含まれる文字（どれか 1 文字〉を文字列 stl の中から探し、兄つかれば光頭 
からその位; K までの文字列を返します。 

最初の strtoklK ! 数の灾行の場合は、文字列 stl の光頭に文卞列 st 2 に舍まれる文卞があ 
つても無视します。統ぃて、文字列 stl を null 文字にして strtok 関数を次:行すると次に 
文字列 st 2 に含まれる文字が兒つかったところまでの文卞列を返します。文字列 st 2 に 
含まれる文字が見つからなくなると、 null 文字を返します。文字列 st 2 が、 null 文字の 
場介は、文字列 st 1をそのまま返します。 


用例 


10 It strtok sample 
20 str a9(50).bs f cs 

30 as = ,f super personal workstation X68000 
40 bs= M zqx 123" 

50 print strtok(as f bs) 

60 print strtok{cs,bs) 

70 print strtok(cs,bs) 

80 print strtok< cb, bs) 

90 print strtok(cs,bs) 

100 end 


STRUPR 




strupr ( st ) 
str 型変数名 
str 

str 型変数 st の英^、文字をすべて吳大文字に変換します。 

10 /* strupr sample 
20 str as 

30 as = "PERsonal workSTATION X68000 •• 

40 strupr(as) 

50 print as 
60 end 


標準関数 
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br 

br 

br 


endswitch 

<式〇 > と同じ値をもつ case のく式 n > の後のく文 n > を実行します。く式 0 >と同じ値をも 
つ case のく式 n > がなくて default がある％》は、〈文 d > を， 欠:行してから 、 endswitchU 
後の命令文に進みます。 default がなければ endswitch 以後の命令文に進みます。 
case ^ KAn 〉 の中には、桉数及び文字定数のみ人リます。 


年 


SWITCH 〜 CASE 〜 DEFAULT 〜 ENDSWITCH 


ステートメン 






SYMBOL 


GRAPH 


害式 

引数 
戻り値 
機能 


用例 


symbol(x, y, st, h, v, mo, p, an) 
int(x, y, p>, str(st), char(h, v, mo, an) 
void 

グラフィック l 由祖 i •.に文字列をします。 


x. 始点辦:標 



St. 文字列（文字式〉 

h. 横力•如の倍率 （ 1〜 255) 

v. 縦力•向の倍中 （ 1〜255) 

mo. 文字フォントの神類 

(半角）（全角} 

0……6X12 、 12X12 
1……8X16 、 16x16 
2……12x24 、 24X24 


p. パレッ トコード（色） 

an .M 転角度 （0 〜3、ただし90度単位> 


x、y は、一32768から32767までの値をとることができます。クリッピングエリアにつ 
いては window 関数て•指定された範囲になります。またバレットコード p は0から 
65535までの侦をとることができ、その W •人侦はグラフィック㈣ ifti の次:I由 llfti サイズおよ 
び色モードによります。 

10 /拿 symbol sample 
20 int ai 9 bi 9 ci 9 di 
30 char ac 
40 float af 
50 screen 1, 3,1,1 
60 v^page(1) 

70 randomize(15000 ) 

80 for ai=l to10 
90 ac = a i 

100 symbol (256, 256 t M X68 #i t ac f ac f 2 f rnd( )« 65535 f ac mod 4) 

110 next 

120 for ai:0 to 5000 : next 
130 wipe() 

140 for ai*0 to 3 

150 ac:ai 

160 for bi=90 to 420 

170 af:2 拿 pi{ ” bi/331 

180 ci = sin(af)* 160 

190 di : cos(af)t 160 

200 symboUbi ,256-ci • M X68 M f l f 1 t 2 f rnd( )*65535 f ac) 

210 symbol(bi f 256-di f M X68 # \ 2 f 2 f 2 f rnd( )«65535 t ac) 

220 next 

230 wipe() 
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240 next 

250 for ai =1 to15 
260 ac:ai 

270 symbol(150-ait10 f 150- 

280 for bi:0 to 400 : next 

290 next 
300 end 


10 ， •X68" f ac f ac f 2 f rnd( ) >65535 f 0 ) 


SYSTEM 


コマンド 



system 
sys • 

親フロセスに制御を/乂します。フログラム中では使⑴できません。ブログラム中で使 
⑴する場合は、 exit ( >命令を使用してください。 


TAN 


標準関数 




tan ( n ) 

float 

float 


ftn (ラジアン）の〗 K 接（タンジェント > を返します。 


10 / * tan samp Ie 
20 int ai t bi t ci f di f ei =1 
30 float af 
40 screen 丨 ，3 •1•1 
50 vpage(1) 

60 line(0 f 255,51 1 f 255 f 65535 f &HFFFF) 

70 for ai:1 to 3 

80 for bi:0 to 511 

90 af=(2«pi()tbi)/512tai 

00 if af>=ei 拿 pi()/2 then ei:ei.2:conti 

10 ci:255-tan(af )« 100 

20 dirrnd( ”65535 

30 pset(bi f ci 9 di) 

40 next 

50 ei =1 

60 next 
70 end 
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TIMES 


システム 変数 


/ * time$ sample 
str as f bs 


10 

20 

30 

40 

50 

60 

70 

80 


■用例 



TOASCII 


標準関数 


窨式 toascii ( ch ) 

引数1 char 

戻り値 int 

機能1 キャラクタ ニ 


用例 


キャラクタコード ch の文？:が非アスキー文字 (& H 80-& HFF ) であればアスキー文 
字 (& H 00-& H 7 F ) に変換して返します。 

キャラクタコード C h には0から255の侦が人リ、误リ侦もその紐 M のキャラクタコード 
を返します。非アスキー文字以外の場合はそのままのキャラクタコードを返します。 


10 /* toasci 1 sample 
20 char ac f be f cc 
30 ac: ， a f 
40 bc= f マ ， 

50 cc=&Blll 00111 
60 print chr$(toasci 
70 print chr$(toasci 
80 print chr$(toasci 
90 end 


It &b01 100001 tI 
/t &bll 001111 


(be) 


= 0 " 

= 0 f . 


bin$(toascil(ac) 
bin$(toascii(be) 
bin$(toascii(cc) 


$ 8 8 i 
e a b t 
m •• 
i t s $ t 
t n aen 
ri z mid 
8 r s i r n 
a pb t p e 
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/拿 to lower sample 
char ac,be,cc 
ac= f a 1 
bc= f A f 
cc=•5• 

print chr$(tolower(ac " 
print. chr$( toJouer(bc)) 
print chr$(tolower(rc)) 
end 


用例 


/* toupper sample 

char ac,be,cc 

ac= f a f 

be: ， A 1 

cc= f 5 f 

print chr$(toupper(ac)) 
print chr$(toupper(be)) 
print chr$(toupper(cc " 
end 


して返します。 

キャラクタコード ch には0から255の侦が入り、 W リ侦もその範网のキャラクタコー 
ドを返します。炎; •人文 7以外の場介はそのままのキャラクタコードを返します。 


機能 キャラクタコード ch の文字が吳大文字 f A •〜 ’ Z ’> であれば英小文字 <’ a ’ 〜 ， z ’> に変換 


戻り値 


引数 char 


窨式 tolower ( ch ) 


機能 キャラクタコード ch の文字が英小文字 （’ a ’ 〜 ’ z ’) であれば吳大文字 （’ A ’ 〜 ’ Z ’） に変換 

して返します。 

キャラクタコード C h には0から255の値が入り、戻り値もその範開のキャラクタコー 
ドを返します。英小文字 W 外の場合はそのままのキャラクタコードを返します。 


toupper ( cn ; 
char 


TOUPPER 


標準関数 


り値 


TO し OWER 


標準関数 


000000000 
12345 6 789 
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VA し 


標準関数 


/ * val sample 
float af t bf t cf 
str as,bs»cs[40 J 
as = "300000000 ⑽⑽ •• 
bs="-2.51235e-2" 

cs = ff 0.5102123542131543512312313453543543513213 
af = val(as) 
bf = val(bs) 
cf=val(cs) 

print ••(••♦as + ")W + bs + 
print ••( ••♦as+” }/( " + bs + 
print ••(••♦as.X" + bs + 
print +as+ •• J - ( •• + bs + 
end 


)/( 



af*bf*cf 
af/bf/cf 
af+bf+cf 
af-bf-cf 


窨式 


val ( st ) 


数 


str 


戻り値 


float 


機能 


文字列 st を i ? •劾小に货換して返します。 

& B 、& H . の锫数値を招 W した文卞列も变換できます。 


S 

- 00000000000000 
t 12345678901234 

S 14 n 1i 1 n 


例 

用 
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VPAGE 


GRAPH 



vpageu ; 


char 


void 

ft グラフ イ ックページの衣示 ON / OFF をす S 定します。グラフ イ ックページ S 号は0 
〜 3 で W •人 fift はグラフイック〖由 I 曲の実 I 由 1 面サイズ及び色モードによります， 


グラフ イツ ク I 由 Hfti の実 I 由 Tifti サイズ及び色モードによる i の侦の範 I 相 


0……表示 OFF 

1024 X 1024( 16 色モード）…… 0、1 ( グラフ イ ックページ 0のみ) 
512 X 512(16 色モード〉 . 0 から 15 












/本 vpage sample 
i n t a l,b i ， 
float af 
screen 1,1 
vpage(0) 

wi ndow(0 t 0 f 511 t 51 
apage(0) 
kyu(400 f 0) 
apage(1) 
kyu(320 t 10 
apage(2) 
kyu(240,20 
apage(3 ) 
kyu(160,30 
whi le -1 
for ai=0 to 51 
af = pi( 
hi :: abs 


拿 ai/512 拿 2 

sin(pi()/2-af)«40O) 


f bi =0 then 


pa«e(&B10) : pause() 
page (&Bl00) : pause( 
pa^e(& B1 000 ) : pause 
page 《 &B 100): pause< 
pa^e(&B10) : pause() 


home(0,0 9 bi ) : home(1 9 0 9 bi ) 
home(2 t 0 9 bi) ： home( 3 9 0 9 bi) 
vpage(&B1) 

next 

endwhile 
find 

func kyu(ai,bi) 

circle(256 f 461+bi f 50 t 5 f O f 360 f 

paint(256 f 46 J +bi 9 5) 

endfunc 

func pause() 

for ci=0 to 250 

next 

endfunc 


IMAGE 


apage 、 home 、 screen、window 


式 


引数 


v cut ( svv ) 


char 


戻り値 


void 


機能 


スーパーインポー;のテレビ • ビデオ I 由|面及^を制师します。 


s\v 


制御スイッチ （ 0 =テレビ.ビデオ丨由1面表/】; - ON 、 1=テレビ • ビデ 
才_面表ボ 0 FF > 


なお、この関数を実行するにはカラーイメージ ユニッ トが必要です。 


〇 〇 〇 
12 3 


000000000000000000000000000000000000 

5678901234567890123456789 


4 5 678901234 


8 9 0 12 3 

22222222223333333333 


例 

用 



U 

C 



243 









第 4 章リファレンス 


WHI し E 〜 ENDWHI し E 


ステートメ 


式 while < A > 


くルーフの内界〉 


end while 

杉曼會泛 I < A > の侦が偽になるまで、指定されたくループの内界〉を繰り返し（ループ}ます。 

繰り返しの終 f 判定はくループの内容〉の太•彳 frfj •に彳 i われます。く式〉の内容によって 
は、一度もくループの内，#〉を次:けしない場合があリます。 


用例 


10 / * while endwhi】e sample 

20 int ai 

30 while ai< > 3 

40 input M 1+2:"；ai 

50 endwhile 

60 print ..ok ! •• 

70 end 


WIDTH 


式」 width く文 •； •:数 > 

省略 形 ] w . 

機能1 衣ボ文卞数を变史します。く文？炎〉は 96 か 64 です。 

この命令を実行するとテキスト阔面、 グラフィック _面やスブライト_面は消去され 
ます。また、 console 0.31,1 が再設定されます。テキス ト_ 面の パレット もデフ オル 
卜の値に再設定されます。 


コ7 


K 


244 


WINDOW 


GRAPH 



window ( xl , yl . x 2. y 2) 


void 

グラフィック l 由|而の実_瓯1•.でクリッピングするエリア（クリツビングエリア）を衍 
定します。 


xl . ■曲 •. 1•.でのクリッピングエリアのノ r : I . X 啤標 

yl . 灾阃面上でのクリッピングエリアの & t . Y 座標 

x 2 . 綱 fti I . •でのクリッビングエリァの右卜•跡•標 

y 2 . 灾:剛 I •.でのクリッピングエリアの右下丫(电標 

xl 、 yl 、 x 2、 y 2 は グラフィック I 由 I 曲の次: I 由)面サイズが 512 X 512 の堝合は 0 から 511 ま 
で、次:_•サイズが 1024 X 1024 の場分は 0 から 1023 までの侦をとることができます0 
screen 命令を次:けすると xl 、 yl 、 x 2、 y 2 にはその衣 >】•<_面サイズの人きさで W 設定さ 
れます。ただし、この場合 Ul , yl > には<0.0>が再設定されます。 



a page 、 home 、 screen 、 vpa^e 


用例 


10 ft window sample 
20 int ai,bi t ci,di,ei f fi 
30 screen 1, 3,1,1 
40 vpage(1) 

50 while -1 

60 input •• クリッビングエリアの左上〜 511) を入力してください "； ai 
70 print ai 

80 input •• クリッビングエリアの左上 Y * « 《 0 〜 511 ) を人力してください "； bi 
90 print bi 

00 input •• クリヴビングエリアの右下 X ft 樣 （ 0 〜 51 丨 ） を人力してください ”； d 
10 print ci 

20 input •• クリ • ゾビングエリアの右 T Y « 樣《 0 〜 51 】 > を人力して < ださい "； (ii 
30 print di 

40 print ••クリッピングエリアは （"； ai ; "•••••“；"， です " 


150 

window(ai,bi 

• c i t d i ) 

160 

box 1 

ai,bi t ci 

t di t 6553 5,&HFFFF) 

170 

for 

al=0 to 

200 

180 


bi=rand( 

)mod 512 

190 


ci=rand( 

)mod 512 

200 


di=rand( 

)mod 512 

210 


ei=rand( 

)mod 512 

2^0 


fi:rnd () 

« 65535 

2 30 


f i 】 l(hi , 

ci,di f ei f fi) 

240 

next 


250 

wipe() 


Z60 

c 1 s 



270 

endwhi1e 



ZH0 end 
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第 4 章 リファレンス 




GRAPH 




void 


グラフイツク沖 Ufu •のアクテイフ•ベージのクリッヒングエリア内冬消去します。 


a page、window 



10 /* wipe sample 
20 int ai ， bi,ci 
30 screen 1•1,1•1 
40 vpage(0) 

50 apage(0} 

60 fiil(50 f 50 t 460 t 260 f 9) 

70 kyu(200 f 0 f 9 ) 

80 apage(1) 

90 kyu(200 t 15,0) 

100 apage(2) 

110 kyu(150,11.0} 

120 symbol( 170, 166 / f SHARP" f 3 f 2 f 2 t 5 f 0) 

130 apage(3} 

140 kyu( 100 f 13 ， 0) 

150 symbol (202,196, M X68000 •• •1•1• 2 • 3 • 0 > 

160 vpage(&Bl111) 

170 for ai=1 to 3 

180 locate 13, 20: print ••グラフイツクページ 

190 for bi=0 to 10000 

200 next 

21 0 apage(ai) 

220 wipe() 

230 next 
240 apage(0) 

250 locate 13,2 0: print "グラフイツクページ 〇 
260 for bi =0 to1 0000 
270 next 
280 wipe() 

290 end 

300 func kyu(ai t bi f ci) 

310 circle( 256 t 256 t ai f bi f -10 f -170 f 200) 

320 paint(256 t 250 f bi) 

330 cirole(256 f 256 f 30 f ci f 0 f 180,200) 

340 paint(256 f 250 t ci) 

350 endfunc 


;ai ; をワイブします！ 


をワイブします！？ 
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コントロールコードー K 


■コント ロールコード ー 覧 


CTRL'-f 

■ 4 

コード 

__ __ ■ r 1 

機 能 

対応キー 


()0 

ダミー 


A 

()1 1 

インサートモードにする（トグル的作で ON/OFF する） 

INS 

B 

02 

说在のワードの光姐にカーソルを炭す 


C 

03 

実行を停止する 

| BREAK ] 

! i ) 

04 

イニシャライズする 


E 

05 I 

祝在のカーソル以降1けを消す 


F 

06 

次のワードの: t 姐にカーソルを進める 


1 (； 1 

()7 

々ーソル位;? i の文字を; ft •す 

「 DEL 

II 

08 

バックスペース（カーソルの前の位菜の文字を消す) 

1 

I 

09 

水平 TAB を行う 

UTAH 


J 

OA 

祝在のカーソル以 P 年を次の行に分ける 


K 

OB 

々ーソルを ㈣ 谢のホーム位: K に移す 

iHOMEl 

L 

OC 

テキスト幽面を消去する 

(CLKl 

M 

01) 

キャリッジリターンをする 

\ J \. [ ENTER 

N 

OE 

斗!在のカーソルから上を上力•向にスクロールする 

[ROLL upJ 

() 

OF 

说在のカーソルからドをドガかにスクロールする 

: ROLL DOWN ] 

P 

10 

ダミー 


1 Q 

11 

次:行の•時 ff-il •.を W 除する 


R 

12 

ダミー 


S 

1 13 

次:彳 f を一 B 料？せ.する 


T 

14 

ダミー 


U 

15 

ダミー 


V 

16 

ダミー 


W 

17 

祝在-のカーソルがあるけと次の i f をつなぐ 


X 

18 

ダミー 


Y 

19 

ダミ- 


Z 

1 A 

祝在の力ーソルよりドのテキスト_而をすベて消 i ; •する 


[ 

IB 

エスケープコード 

f ESC 

¥ 

1 C 

カーソルを右へ移勒する 

B 

] 

ID 

々ーソルを左へ移勒する 

B 

へ 

IE 

カーソルを上へ移動する 

m 

1_ _ _ 

IF 

I 力ーソルを下へ移1かする 

m 
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キヤラクターコード表 


上位4ビット— 



予約語一覧 


■予約語一覧 

予約語は X-BASIC が贫理するキーワ ー ドで、変数名や func 〜 endfunc で定義する聞数名としては使 
えません。 


ABS 

APAGE 

ASC 

ATAN 

ATOF 

ATOI 

AUTO 

A—PLAY 

A—KEC 

BEEF 

BG FILL 

BG.GET 

BG.PUT 

BG SCROLL 



BG 一 STAT 

BINS 

BOX 

BREAK 

CASE 

CHAR 

CHDIR 

CHDRV 

CHRS 

CIRCLE 

CLEAR 

CLS 

COLOR 

CONSOLE 

CO NT 

COUTINUK 

CONTRAST 

COS 

CRT 

CSKLIN 

DATES 


DAYS 

DEFAULT 

DELETE 

DIM 

DSKF 

ECVT 

ELSE 

END 

ENDFUNC 

ENDSWITCH 

KNDVVHILE 

EKKNO 

ERROR 

EXIT 

EXP 

FCLOSE 

FCLOSEALL 

FCVT 

FDELETH 

FEOF 

FGET 

FILES 

FILL 

FIX 

FLOAT 

FOPEN 

FOR 

FPUTC 

FREAI) 

FREADS 

FRP：E 

FRENAME 

FSEEK 

FUNC 

FWRITE 

F\VRITP：S 


GCVT 

GET 

GOSUB 

GOTO 

MEXS 

HOME 

HSV 

IF 

IMGCOLOR 

IMG HOME 

IMGJIT 

IMG.LOAD 

IMG.POS 

IMG.PUT 

IMG_SAVE 

IMG_SCKN 

IMG.SET 

IMG.STILL 

INKEYS 

INPUT 

INSTR 

INT 

ISALNUM 

ISALPHA 

ISASCII 

ISCNTRL 

ISDIGIT 

ISGRAPH 

ISLOVVEK 

ISPRINT 

ISFUNCT 

ISSPACE 

ISUPPEK 

1SXDIGIT 

I TO A 

KEY 


KILL 

LEFTS 

LEN 

LFILES 

LINE 

LINPUT 

LIST 

LUST 

LOAD 

LOCATE 

LOG 

LPRINT 

LSEARCH 

MIDS 

MIRRORS 

MOUSE 

MSAREA 

MSBTN 

MSPOS 

MSSTAT 

M_ALLOC 

M ANTOFF 

M_ASSIGN 

\I_BEND 

MCHAN 

M CONT 

M CTRLRES 

M DIROUT 

M END 

MEKRGET 

M FREE 

M.FKEEA 

M.IFCHK 

MJNIT 

MMDREG 

\1_MEAS 


M METER 
M_MOD 
I MODSNS 
1MSTVOL 
M.MUTE 
M_NTOFF 
M—NTON 
10PMEXC 
I OPMLFQ 
1OPM REG 
OUT 
M.PAN 
M.PANFLT 
M.PCMBSY 
PCMCLR 
M PCMGET 
M.PCMLKN 
M_PCMON 
M PCMREC 
\1_PCMSET 
\1 P(；MFLT 
M.PLAY 
\1 PNMGET 
\1 PNMSET 
M—PROG 
MINDSET 
M SOLO 
M STAT 
M..STAKT 
\I_STOP 
\1_SYNC 
\1_SYSCH 
\1_TEMP0 
M TNMGET 
MTNMSET 
MTRK 


M TRNS 

M_USE 

M_VEL 

M—VGET 

M.VOL 

M.VOLFLT 

M.VSET 

M.YCOM 

NAME 

NEW 

NEXT 

ocrrs 

OFF 

ON 

PAINT 
PA LET 
PI 

POINT 

1)()S 

POW 

PRINT 

PSET 

PUT 

PURANDT 

RANDOMIZE 

KP：NUM 

RKPEAT 

RETURN 

RGB 

RIGHTS 

RNI) 

RUN 

SAVE 

SCRKKN 

SEARCH 

SKTMSPOS 
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SON 

TAN 

SIN 

THEN 

SPACES 

TIMES 

SP CLR 

TO ASCI I 

SPXOLOR 

TOLOWER 

SP_DEF 

TOUPPP：R 

SP DISP 

UNTIL 

SPJNIT 

USING 

SF MOVE 

VAL 

SP OFF 

VPAGP ： 

SP ON 

V.CUT 

SP PAT 

WHILE 

SP.SET 

WIDTH 

SPSTAT 

WINDOW 

SQR 

WIPE 


SRANI ) 

STICK 

STOP 

STK 

S ， I 、 K $ 

STKCHR 

STRCSPN 

STRIG 

STRINGS 

STRLKN 

STRLVVR 

STRNSKT 

STRRCIIR 

STRKKV 

STKSET 

STRSPN 

STRTOK 

STRUPR 

SWITCH 

SYMBOL 

STSTEM 




/ ipCM フアイルの获み込み 

/* トラックバッファの確保 
/* トラ7クん7ファへチ t ンネルを割当 

/*12 S ( o 0 c ) e 録音を再生 


■ ノート番号：音程対応表 

ai)pcm で取り込んだ ?? のデータフアイルを茂程に別り f 、 m 、 曲の途中でその ftft ? を演务すること 
で取り込んだ音を演备屮に 4 移牛 : することができます。 

取り込んだ&データの程への削り付けは ni_pcniset コマンドで行います。 
m pcmset コマンドで指定するノー ト S 々と茂程の対応は次の通リです。 


■ 

Dl 

m 

Dl 

■ 

D 

D 

■ 

D 

m 


B3 

D 

oo> 

00 


02 

« 

03 




07 

08 



D 

( X ) 

12 

m 

D 

■ 

■ 

D 

B 

Q 

Q| 

■ 



01 

24 

_ — つ 

25 

■ 


1 

28 

29 

30 i 


— 

32 : 

■ 1 

33 



02 

36 

37 

i 

38 


Q 


Q 


D 

Q 

■ 

D 

03 

48 

■ 


Q 

O 


Q 




r 

58 

59 

- - 

04 

60 

^ ^ • 

□ 

1 

62 

63 


■ 1 

65 

i i 

66 





D 

05 

72 


□ 

■ 


Q 

m 

O 


a 



06 

■ 

84 


Kifll 




90 



93 

k ■ 

B 


07 

96 






| 

102 

i ■ 

103 



106 

107 

08 

108 






BO 






08 く 

120 








■ 

■ 

■ 

■ 


M 

C 

P 


0 8 8 
1 c C 


6 < 
8 

0 b 


8 

d 

8 


0 8 e 
1 a 8 


8 

bo 

8 


p 

m) 

a c 

s a t 8 

¥ bO 
c 0 

\7 J \—/ 
p *1 

0ma 0 
0 a » 2 ) 

0 s 0 • 0 

2 Y 0 4 0)1888 
c TV • • 0 f 0 1 ccc 
1 c B0)22 >7405 
p 3)w 2(1 —9 0-0 0 0 

0(( tl(l(» n M n 

8 r r n c 1 t /IV n » > • » 
s aleaaecoollll 
•1 tn c p/\ 6 s o *1 /\ /V yfv /V 
macmodsmlskkkk 
c c f4 soclsrrrrl 
ptDpn elpaatttt Pd 


5 8 
If 

V 8 a 
c 8 

6 8 ) b 
1 d ” > 


y 

a 


i d m 


i r c ■ i ■ ■ i i i i n 
affmmmmmmmme 


0000000000000000 

0123456789012345 

1111111111222222 


例 

用 
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■エラーコードー覧 


エラー番分 

_【_■_■ ■ - 

' 1 人】 H 1 

1 

テンポのが無効です 

2 

, トラック S 号が無効です 

3 

OFMDRV3.X が®録されていません 

4 

サイズの衍定か無効です 

5 

メモリーの確保ができません 

6 

チャンネル浪号が無効です 

7 

配列の指定に誤リがあリます 

i 8 

OPMDRV3.X は祝在停止中です 

i 9 

ベロシティの 1 我があ リません 

10 

ベロシティの攸が無効です 

1 11 

以 ,*Y モードの指定が無効です 

12 

鉍 iY •の咿 «5 ができていません 

13 

ノぐンポットの侦がありません 

14 

パンポットの娥が無効です 

15 

トランスポーズの侦がありません 

16 

トランスポーズの fift が無効です 

17 

パラメータを 1 山 j 方省略するがはできません 

18 

パラメータの衍定に炽リがあリます 

19 

MML の文法に誤りがあリます 

1 20 

[] の中の衍定に淇リがあります 

21 

] がありません 1 

22 

繰り返しの侦が無効です 

23 

繰り返し形 Vj •の衍定がありません 

24 | 

繰り返し番り•のす S 定か無効です 

25 

オクターブの番分があリません 

26 

オクターブの fit 定が無効です 

27 

及さの侦が無効です 1 

28 I 

トラック容 W: 力リません 

I 29 

疗色•の衍定があリません 

____ ' 

@W の侦がありません 

31 @W の値が無効です | 

32 

テンポの侦がありません 1 

33 J 

テンポの値が無効です 

34 | 

M さの値があリません 

35 

fVM の侦がありません 

— - - - __ 
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エラーコードー覧 


エラー#号 

内 容 J 

1 36 

き M の値が無効です 

37 

キーコードの侦があリません 

38 

キーコードの値が無効です 

39 

泞色番号が無効です 

40 

} がありません 

41 

{} の中に音符が多すぎます 

1 42 

{ } の中に荇符がありません 

1 43 

Q の指定に誤リがあります 

44 

{ } の中の文*法に誤リがあります 

1 45 

Y の衍定に誤リがあリます 

1 46 1 

@L の指定に誤りがあります 

47 

P の指定に誤りがあります 

48 ! 

タイの衍定に热りがあります 

| 49 

和裔の衍定にぬりがあります 

50 

和 fV の数が多すぎるか、または後の’があリません 

51 

@V の指定に誤りがあります 

52 

@P の指定に誤りがあります 

53 

@u の衍定に热リがあリます 

54 

@N の指定に淇リがあリます 

55 

@M の指定に淇りがあります 

56 

@D ^ 旨定に热リがあります 

57 

@B の指定に淇りがあります 

58 

@T の指定に淇リがあります 

59 

@Y の指定に淇リがあります 

60 

PCM の八ッ ファ 小足で、 Ztlll 1 .«鉍できません 

| 61 

PCM は使川できません 

62 

OPMDRV3.X のバージョンが速います 

63 

無効なサンプリング阓波数を指定しました 

1 64 

無効な出カモードを指定しました 

65 

無効なデータサイズを指定しました 
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弓 


A 〜 Z 

ADPCM. 49 

autorun. bas . 28 

BASIC2. 4 

BREAK キー . 9 

I)EL キー . 6 

FMffiK (制御 . 46 

IEEE フォーマット . 33 

INS キー . 6 

MIDI. 3 

MML .46 

null 文卞 < ヌルストリング > . 14 

ぁ 

アスキー形 A . 25 

オーバーフロー （ Mr あふれ） . 63 

オープンモード . 51 


か 

カーソル .4.5 

カーソル移勋キー . 6 

外部関数 . 28, 34 

腿 f . 25 

___:標系) . 36 

カラーコード . 44 

醜演算 . 64 

関数 . 11，16 

キーワード . 11 

. . 12 

⑽号 .5.7.12 

グフフイツク I 由 itfij . 35 

グラフィックページ数 . 36 

クリエイトモード . 51 

クリツビングエリア . 37 

クローズ . 51 

コマンド . 11，66 


コマンドモード . 27 

コンフイギュレーションファイル . 29.30 


さ 

サブルーチン . 

サンプリング周波数… 

システム変数 . 

■面 . 

実数塑 . 

ンフト算 . 

糊 : 撕 . 

切 KW ((デフ オル Mift ) 


_•の分岐…… 

スイッチ . 

水平両面サイズ 

スクリーンモード 

スクロール . 

ステートメント . 
スプライト …… 
スブライト I 由 iifti 

スペース . 

セーブ ( SAVE ) 

制 iil 構造 . 

整数 5? . 


•13 

•49 

.11 

•36 

14 

•63 



14 
68 

15 
28 


28 


35 . 36 
….35 

11,66 


38 




24 


15 

14 


た 

ダイレクトモード . 5 

チャイルド（子}プロセス . 28 

データ . 12 

ディレクトリ . 28 

テキスト I 由|面 . 35 

テキストファイル形式 . 30 

デバイスドライバ . 33 

干べ./ブ . 14 

. 57 
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索引 


トラックノぐ/ファ .28. 46 

な 

人乃待ち状態 . 4 


は 

仿 M 度次数 flft . 14 

配列の Vi>V . 21 

fl 己列変数 . 20 

ノぐ y クグラウンド . 38 

ノ、レッ トコー ド . 44 

ノぐレッ トフ •ロック . 39 

ビープ汽 . 30 

リ I 数 . 29.68 

ビット娜•： . 65 

mmn . 34 

衣/八1由 llfti . 36 

ファンクションキー衣ポ . 35 

勝 J 、 数点数 . 33 

フリーエリアサイズ . 28 

フ 。レーン . 38 

プログラムモード . 5 

プロンブト . 27 

文 . 12 

変数 . 14,15 

変数名 . 14,15 

変数の宣言 . 14 

変数のデータ切 . 14 

ま 

マージ(混合、追加> . 25 

マルチステートメント . 12 

命令文 .5.9 

メイ ン ブログラム . 14, 23 

文字型 . 14 

文字八ッファのサイズ . 14,58 

モジュール 化 . 23 

戾リ値 . 68 


や 


b 


ライトモード . 51 

り 一 トモート’ . 

リードライトモード . 51 

リターンキー . 4.5 

ルーフ° . 17 

ロー々ル殳敉 . 31 

ロード （ LOAD ) . 25 

. 64 

淪押潮 . 36 
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資料編 


■機能別索引 

ADPCM の希 lj 御 ( AUDIO . FNC ) 

A _PLAY . 75 A RKC .76 


コマンド 


AUTO.74 

CHDIR.86 

CIIDRV .86 

CHILI).87 

CLKAR .89 

CONT.93 

DKLKTK . 98 

FILES . 108 

KEY LIST. 147 

KILL . 147 


LIST . 151 

LOAD . 152 

NAME . 196 

NEW.196 

RENUM .208 

RUN .211 

SAVE.211 

SEARCH . 213 

SYSTEM . 238 

WIDTH.244 


データの 変換 


ASC.71 

ATOF.72 

ATOI .73 

BINS .83 

CHRS .87 

ECVT . 101 

FCVT . 105 

FIX. 110 

GCVT .122 


HEXS .125 

I NT .139 

ITOA.146 

OCTS .197 

STKS .228 

TO ASCI I .239 

TOLOWER ..240 

TOUFPER . 240 

VAL .241 


ファイル入出力 


DSKF. 100 

FCLOSE .104 

FCLOSEALL .105 

FDELETE . 106 

FEOF. 106 

FGETC. 107 

FOPEN.Ill 


FPUTC. 113 

FREAD. 114 

FREADS . 116 

FRENAME . 117 

FSEEK . 118 

FWRITE . 120 

FWRITES .121 
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槻獅糜引 


グラフィックの制御 （ GRAPH . 


AI^Abh . 70 

BOX. 84 

CIRCLE .88 

CONTRAST . 95 

FILL . 109 

GET .123 

HOME .126 

HSV .127 

LINE.149 

PAINT .198 


FNC ) 


PALET. 199 

POINT .201 

FSET.205 

PUT .206 

RGB .209 

SYMBOL.237 

VPAGE.242 

WINDOW.245 

WIPE.246 


数値演算 


ABS.69 

ATAN.71 

COS .95 

KXP .104 

LOG . 153 

PI .200 

l》OW . 202 

RAND .207 


RANDOMIZE.207 

KND .210 

SGN . 214 

SIN.215 

SQR .225 

SRAND. 225 

TAN .238 


マウスの制御 （ MOUSE . FNC ) 


MOUSE. 155 MSPOS …… 

MSAREA.156 MSSTAT - 

MSBTN .157 SETMSPOS 


158 

159 
214 


FM 音源の制御 （ MUSIC . FNC ) 


M_ALLOC .160 

M_ANTOFF.160 

M.ASSIGN.161 

M_BEND.161 

M_C 11 AN.162 

M CONT.162 


M.CTRLRES.163 

M.DIKOUT.163 

M.END.164 

M ERRGET.164 

M FREE.165 

M FKEKA . 165 
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mm 


MJFCHK.165 

M INIT.166 

M—MDREG.166 

M.MEAS.167 

M.METER.167 

M_MOI).168 

M 一 MODSNS.168 

M 一 MSTVOL.169 

M_MUTE.169 

M.NTOFF.170 

M.NTON.170 

M_OPMEXC .171 

M OPMLFQ.171 

M OPMREG .172 


M.OUT …… 
M.PAN …… 
\1 PANFLT 
VI PCMBSY 
M l^MCLR 


M PCMGKT.175 

MJ^MLKN .176 

M PCMON.177 

M PCMRIX.178 

M PCMSKT.179 


M.PGMFLT.180 

M—PLAY.180 

M.PNMGET .181 

M_PNMSET.182 

M.PROG.182 

M.SxNDSET.183 

M_SOLO.183 

M.START.184 

M.STAT.185 

M.STOP.186 

M.SYNC.187 

M.SYSCU .187 

M.TEMPO .188 

M TNMGP：T.189 

M.TNMSET. 189 

\1 一 TKK.190 

M TRNS.190 

MUSE.191 

M VEL.191 

M VGI •: T.192 

M VOL.193 

M VOLFI/I'.193 

M VSET.194 

M YCOM.195 


スフライトの制御 （ SPRITE . FNC ) 


B (； KILL .78 

B (； (;KT .79 

B (； PUT .80 

H (； SCROLL .81 

H (； SKT .81 

B (； SI' AT .82 

SI> CLR .216 

SP COLOR.216 

SP I)KF . 217 


SP DISP.219 

SP INIT.220 

SP MOVK .220 

SP OFF . 221 

SF ON. 221 

SP PAT.222 

SP SET .223 

SP ST AT . 224 
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機紹 Ij 索引 


文字列処理 





138 

139 

140 


1SASCII. 140 

ISCNTRL. 141 

[SDIGIT . 141 

ISGRAPH. 142 

[SLOWER. 142 

[SPRINT . 143 

ISPUNCT. 143 

ISSPACE .144 

ISUPI^R.144 

ISXDIGIT.145 

LKFTS.148 

MII)$ . 154 


MIRRORS . 154 

RIGHTS . 210 

SPACES . 215 

STRCHR . 228 

STKCSPN .229 

STRIN(；S . 231 

STRLEN (LKN) . 231 

STRLWR.232 

STKNSET .232 

STRRCHR .233 

STRRKX' . 233 

STRSKT . 23.1 

STRSPN . 234 

STRl'OK . 235 

STRUPR . 235 


ジョイスティック入力 （ STICK . FNC ) 

STICK .STRKI. 230 


ステ ー トメント 


BKEP . 77 

BREAK .85 

CHAR.85 

CLS .89 

COLOR .90 

COLOR [] .91 

CONSOLE.92 

CONTINUE .94 

DIM . 99 

END .102 

ERROR ON/OFF.103 

EXITO. 103 

FLOAT. 110 

FOR-NEXT .112 


FUNC^HNDFUNC^KKTUKNf) …119 


GOSUB^RKTUKN .124 

GOTO . 125 

IF-THEN-ELSE.128 


I XT .138 

KEY . 146 

LFILES. 108 

LIN PUT .150 

LLIST. 151 

LOCATE . 152 

LPRINT . 203 

LSEARCH.213 

PRINT .203 
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資欄 


HKM . 208 

REPEAT 〜 UNTIL.209 

SCREEN . 212 

STOP.227 


STR .227 

SWITCH 〜 CASE 〜 DFFAULT -ENDSWITCH …236 
WHILE-ENDWHILE.244 


システム変数 


CSKLIN . 97 

DATKS . 97 

DAYS . 98 

KKRNO. 102 


FKF：E. 117 

INKEYS .136 

POS .202 

TIMES.239 


イメージ処理 （ IMAGE . FNC ) 


CRT . 96 

1M(; COLOR. 129 

IMG HOMK . 130 

IMG IIT. 131 

IMG LOAD . 131 

IMG POS . 132 


MG _PUT .133 

MG SAVK .133 

M(; SCRN . 134 

M(; SET .135 

MG STILL .136 

CUT .243 
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